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PREFACE 


Intercomm is a state-of-the-art teleprocessing monitor system 
executing on the IBM System/370 and System/390 family of computers and 
operating under the control of IBM Operating Systems (XA and ESA). 
Intercomm monitors the transmission of messages to and from terminals, 
concurrent message processing, centralized access to I/O files, and the 
routine utility operations of editing input messages and formatting 
output messages, as required. 


The CGOBOL Programmers Guide explains the organization of 
Intercomm from the application programmer’s point of view and 
illustrates the procedures for creating COBOL application programs and 
integrating them into the Intercomm environment. 


Syntax used in describing the coding of JCL or application 
program statements is: 


® ( } A pair of braces indicates the presence of a choice: 
code elements contained within the braces represent 
alternatives, one of which must be chosen. The braces 


are not to be coded. 


® [ ] A pair of brackets indicates an optional parameter which 
may be omitted depending on access requirements as 
described in the accompanying text. The brackets are not 
to be coded. 


@ A parameter consisting partially or solely of lower case 
letters represents the generic (Intercomm) name of the value. 


The programmer must substitute the actual name used for 
defining the data area within the specific program. 


As a prerequisite to this manual, it is assumed that the user is 
familiar with the Intercomm Concepts and Facilities Manual. The 


following manuals describe in further detail facilities referenced in 
this manual: 


® Message Mapping Utilities 

e Utilities Users Guide 

e Store/Fetch Facility 

e Dynamic Data Queuing Facility 

@ Page Facility and Table Facility 


® Operating Reference Manual: "Message Management" 
"File Management" 


Note: the term COBOL refers to both OS/VS and ANS COBOL and to VS COBOL 
II programs. The term OS/ANS COBOL refers to all supported COBOL 


compilers except VS COBOL II. A mixed environment is supported 
except as noted in Chapter 3. A distinction is made if 
necessary. 
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Chapter 1 


INTRODUCTORY CONCEPTS OF ON-LINE SYSTEMS 


ale! INTRODUCTION 


The objective of most on-line systems is to reduce the time 
factor from source of input data to the results of data processing. 
Typical on-line systems applications in the business environment are: 


e Data Collection 


Transactions may be edited partially on receipt, batch totals 
May be transmitted and verified, but the bulk of processing 
of the collected data takes place in the batch mode off-line. 


a Inquiry/Update Systems 


Transactions are processed immediately to retrieve and/or 
update information in an on-line data base. 


e Message Switching 


Transactions consist of administrative data to be rerouted to 
other terminals in the systen. 


On-line systems are characterized by a mode of operation which is 
nonscheduled and transaction-oriented. An operator at ae terminal 
remote from the data processing center enters a transaction (unit of 
work) by transmitting a message over communication facilities. Each 
individual transaction is processed immediately, as opposed to batch 
Systems, where transactions are accumulated for processing on a 
periodic basis (monthly, daily, etc.). 


Online systems are designed to satisfy a response time 
requirement which is the elapsed time between a request for processing 
by an input message from a terminal to receipt of an acknowledgement, 
or response to that input message (completion of a transaction). 


Y THE ON-LINE SYSTEM ENVIRONMENT 


Typical on-line message processing application programs operate 
on one transaction at a time as they come in from terminals. 
Application programs are usually designed to process only one type of 
transaction, and the whole environment can be said to be transaction 


oriented. Input messages can be processed as received, in any order, 
and the files to be referenced should not be read from beginning to end 
for each transaction. Instead, the records in files are accessed 


directly, either through a specific key or some form of cross-reference 
look-up. 
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A few applications might require some sequential or list 
processing of a file, and while this is possible, message processing 
times for such applications would tend to be high. 


Figure 1 shows a computer system schematic depicting a memory 
layout with an on-line system such as Intercomm, operating in a region 
or address space as a job under an operating system such as IBM’s MVS. 
The on-line system has its own Transaction Monitor which schedules the 


activation of transaction processing according to the varying demands 
in message traffic. 
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Figure 1. On-line Transaction Processing in a 
Multiprogramming Environment 
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The transaction processing programs do not conduct input or 
output operations with the terminals. This function is provided by the 
on-line system, which reads input messages from terminals and saves 
them (queues them) until the appropriate processing program can be 
activated (scheduled). The message is then retrieved from the queue 
and passed directly to the processing program by the Monitor. The 
processing program then requests the Monitor to queue its output 
response message, and the Monitor handles the terminal output function. 


1.3 BATCH ENVIRONMENT VS. ON-LINE ENVIRONMENT 


The classical batch processing system flow of 
input/process/output can be expanded to include message queuing and 


retrieving in the on-line environment. However, the typical on-line 
application program need only be concerned with actual transaction 
processing, because the on-line system does the rest. Figure 2 


summarizes some of the differences between batch and on-line 
environments. 


Scheduled input Unscheduled input 
Single-application job Multiple-application job 

Delayed processing of transactions | Immediate processing of individual 
in batches by type transactions by type 

Transaction input, processing, and | Terminal input/output events are 
output controlled by processing asynchronous to the processing 
program logic program 


Figure 2. Differences Between Batch and On-line Environments 
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1.4 SINGLE-THREAD VS. MULTITHREAD PROCESSING 


In the on-line environment, the logical path of a program in 
execution is called a thread. A single-thread system processes one 
message at a time. However, in a multiple application environment, 
message volume is such that all message traffic could not be adequately 
serviced in a single-thread mode. Large queues (waiting lines) tend to 
develop because messages arrive faster than they can be processed. To 
alleviate this problem and improve system throughput, the delay time in 
the processing of one message waiting for an I/O operation may be used 
for simultaneously processing another message. In this way, several 
message processing logic paths, or threads, may be active at once. 
This is referred to as multithreading. 


Multithreading is coordinated by the Transaction Monitor, and, 
depending on message traffic, can occur between two or more programs or 
within a single program. 


To illustrate this, let us assume that we have two transaction 
processing programs, A and B, and that three messages have arrived for 
processing; two A-type transactions and one B-type transaction. 
Programs A and B both require access to records in a file, affording an 
opportunity for some processing overlap or multithreading. 
Multithreading would occur between programs A and B if while program A 
is waiting for file retrieval, program B is activated by the Monitor to 
carry out its message processing. However, if program A were 
reentrant, that is, written in such a way that it could handle more 
than one thread at a time, then multithreading could also occur within 
program A. This means that while reentrant program A is waiting for a 
file retrieval for the processing of one message, it may be activated 
again to carry out the parallel processing of a second, or nth, 
message. Figure 3 illustrates these concepts. 
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PROGRAM FUNCTIONS IN THE ON-LINE ENVIRONMENT 


An on-line system consists of programs to serve four different 
functions: 


Line Control and Terminal Control 


-- Servicing input requests from the various terminal types 
including transmission error recovery 


-- Directing output to the various terminal types including 
transmission error recovery 


-- Intercepting and storing messages to non-operational 
devices, and retrieval of messages when devices become 
operational 


-- Translation of messages to and from terminal transmission 
code and EBCDIC code for processing 


Message Processing Control 


-- Queuing new input messages until the associated message 
processing program is scheduled for execution 


-~ Scheduling message processing programs to obtain best 
system throughput for message traffic 


-- Controlling multithread operation for concurrent 
processing of several messages 


-- Centralizing data file accesses to eliminate redundant 


operations and provide exclusive control over records 
during file updates 


Systems Operation Control 


-- Security checking functions to restrict certain 
transactions to specific operators and/or terminals, and 
to prevent access to unauthorized functions/files. 

-- Logging (journaling) of all message traffic 


-~ Checkpointing, Message Restart, File Recovery and 
Backout-On-The-Fly (dynamic file backout) facilities 


-- Cancellation of message processing programs when a 
program check or program loop occurs 


-- Collect and display system statistics 


-- Display and modify system status 
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e Message (Transaction) Processin 


-- Editing text data from terminal input, including format 
conversion and content editing of individual fields 


-- Retrieval and updating of data from on-line files or data 
bases 


-- Preparation of response (output) messages to terminals 


-- Queuing of response messages for output to terminals 


i ee pre Monitor Control Functions 
The Intercomm System provides complete facilities for: 
e Line control and terminal control 
@ Message processing control 


e Systems operation control 


1.522 Application Processing Functions 


Transaction processing logic lies within the coding domain of the 
application programmer. Intercomm provides the following message and 
file handling support: 

6 Format conversion and editing of input fields 


e Centralized control of data files 


e Format conversion and placement of constant and variable 
information in response messages and terminal displays 


® Queuing of messages (for the same or another terminal, or 
another application) 


The installation-dependent application logic functions then need 
include only the following: 


© Content editing of individual input message fields 
® Retrieval and updating of data from on-line files 


® Selection of individual fields for the output message(s) 
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7 ae THE INTERCOMM ENVIRONMENT 


Intercomm operates under MVS as a job in a region or address 
space. The job is loaded at the beginning of on-line operations and 
continues to operate until the terminal network is closed down. 
Intercomm contains many system programs and application subsystems. 
Intercomm system programs include the Monitor and other subprograms to 
handle such things as terminal and peripheral I/O operations. 
Subsystems are message processing application programs activated by the 


Monitor. The term "subsystem" includes both application-oriented 
message processing programs written by users and Intercomm system 
command processing and utility programs. The Intercomm region contains 


the execution module itself plus dynamically allocated storage or work 
space, as illustrated in Figure 4. 


TO PERIPHERAL 
ON-LINE DEVICES 
TERMINALS COMPUTER 
OPERATING SYSTEM 
REGIONS 


SYSTEM 
PROGRAMS 


MESSAGE 
PROCESSING 
SUBSYSTEMS 


=moawn mH AH 


Figure 4. The Intercomm Environment 
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The system programs are time- or event-driven; the subsystems are 
message-driven. The Intercomm Monitor calls system programs to handle 
events and exceptional conditions as they occur, for example, terminal 
and peripheral I/O interrupts, time-dependent processing, excessive 
message traffic, and system operator commands. 


A subsystem, on the other hand, is called by the system monitor 
when there are messages queued for it, and it has been scheduled for 
execution. Subsystems, while executing, can call user subroutines or 
call system programs to perform services, such as accessing data files 
and queuing messages for output or additional processing by other 
subsystems. Figure 5 shows that called system programs and user 
subroutines will always return to the calling subsystem (or 
subroutine), just as the subsystem itself, executing as a subroutine of 
Intercomm, must always return to the system monitor that originally 
activated it. 


SYSTEM PROGRAMS TRANSACTION SUBSYSTEMS 


MONITOR PROGRAM AA SUBSYSTEM 
CALL SUBAA ENTRY AA AA 


CALL SYSX 
PROGRAM AB 


CALL AG 


PROGRAM ACG 


SUBSYSTEM 
nn 


Figure 5. Intercomm Control Sequence 
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2.2 SYSTEM COMPONENTS 
On-line system component programs are often categorized as 
resident or nonresident, system or user, but typical on-line 


terminology also distinguishes between Front End and Back End system 
components. 


2.2.1 Front End 


The Front End communicates with and monitors all terminals in the 


network. It receives and sends messages, checks validity, performs 
security checking if specified, and accomplishes appropriate code 
translation. The Front End communicates with the Intercomm message 


processing Back End via input message queuing and output message 
dequeuing routines. Although Intercomm has its own VTAM Front End, it 
can also interface with other software Front Ends such as TCAM and 
BTAM. The term ‘terminal’ refers to all supported hardware devices 
(such as the IBM 3270 family, PCs and workstations with 3270 emulation, 
etc.) and software (LU6.2 link) which can transmit input messages 
and/or receive output messages. 


Ve) aes Back End 


The Back End accomplishes all message processing control, system 
operation control, and processing of individual messages. It is, 
essentially, the "director" of the entire on-line system operation. 


The Front End and the Monitor portion of the Back End are always 
resident, whereas message processing subsystems can be any combination 
of resident and loadable. (See Figure 6.) The decision to make a 
message processing subsystem permanently resident, or loadable, is 
based upon the trade-offs between response time, frequency of use, and 
total system core storage requirements. 


Ledws LU6.2 Link 


Support for LU6.2 sessions is an external feature to Intercomm 
which is available in two modes: 


@ Basic: (Releases 9 and 10) an upgrade to the VTAM Front End 
to support secondary LU6.2 sessions with IBM’s CICS to 
receive input messages, queue them for subsystem processing, 
and route the responses back to CICS. 


@ Enhanced: (Release 10 only) an add-on to basic support plus 
an upgrade to the Back End to permit both receipt and 
initiation of transactions on LU6.2 sessions with other VTAM 
applications (Intercomm, CICS, etc.). Subsystems may invoke 
an LU6.2 transaction via the INITLU6 service routine. See 


SNA _LU6.2 Support Guide. 
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243 SYSTEM PROGRAMS 


Intercomm system programs are written in Assembler language and 
include the Monitor, File Handler, high-level language interface 
routines to maintain reentrancy, and message processing service 
routines. 


The Monitor interfaces with the Front End via message queues and 
controls the processing of messages by subsystems. It is essentially a 
traffic director, analyzing message traffic and scheduling subsystems 
based upon traffic volume and priority criteria. The Monitor has four 
key components: 


e The TP queuing interface, which communicates with the Front 
End to dequeue input messages or to queue output messages 
created by subsystems. 


© The Subsystem Controller, which schedules, loads and 
activates the application subsystems, and performs clean up 
processing when the subsystem returns. 


e The Dispatcher, which controls the execution of all events in 
the system to accomplish multithreading. 


e The Resource Manager, which allocates/deallocates and 
controls dynamic resources (such as core storage) used by 
system and application programs. 


The File Handler is the central Intercomm routine where all 
peripheral I/O service for data files is controlled. The File Handler 
issues OPENs, CLOSEs, GETs, PUTs, READs, and WRITEs via the operating 
system data management facility. Subsystems merely call an appropriate 
File Handler routine. Therefore, all access methods supported by 
Intercomm are available to any subsystem program, regardless of the 
programming language used. The File Handler maintains a single set of 
control blocks for each file defined to it via standard Job Control 
Language Data Definition statements, and all programs share this one 
set of control blocks. MIntercomm can control overlapping of peripheral 
I/O processing, as well as provide standardized error analysis. A file 


is usually opened only once during an on-line session: at system 
Startup (optional), or if not, then at the time the first I/O is 
requested. Since files can be accessed concurrently by different 


subsystems, an exclusive control feature is provided to eliminate 
difficulties arising when two or more subsystems (or subsystem threads) 
attempt to update the same record at the same time. 


Language interface routines are described in Chapter 3. 


12 


+ 


Chapter 2 


SHaAmownwn ee 


WOHHAOESE BMmOQA MH AH 


Message Processing and 
Control Under Intercomm 


FRONT-END 


BACK-END 


SYSTEM PROGRAMS 
Monitor 
File Handler 
Message Service Routines: 
Mapping Utilities 
Fesend 


Logput 
Message Collection 


Language Interface Routines 


SUBSYSTEMS 
Intercomm supplied: 


Output Utility 
Change/Display Utility 
Page Facility 


User Applications: 


Figure 6. Intercomm System Components 
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The basic message processing service routines are: 


@ FESEND--which passes an output message to the Front End for 
transmission to a terminal. 


e #LOGPUT--which copies a message onto the system log whenever 
called by a system program or user subsystem. 


@e MESSAGE COLLECTION--which handles the queuing and dequeuing 
of all messages destined for subsystems. 


Intercomm provides service routines to convert terminal-dependent 
input messages to a terminal-independent form for application 


processing. This transformation includes removal of terminal-dependent 
control characters and conversion of numeric data fields to fixed 
decimal or binary form, if required. Similarly, for output messages, 


service routines provide transformation from terminal-independent 
results of application subsystem processing to terminal-dependent 
messages for transmission. This includes insertion of terminal- 
dependent control characters, conversion of numeric fields to character 
format, if required, and inclusion of title information, if specified. 
Each of these routines function via user-specified descriptions 
(tables) of input and output message formats. These service routines 
are: 


e Message Mapping Utilities 


This is a set of service routines called by an application 
program to perform the device-dependent transformations 
specified by the user for both input and output messages. 
Validity checking, conversion, justification and 
padding/truncation of data fields is also performed. This 
utility also executes output message disposition 
(queuing/spooling), if requested. 


e Edit Utility 


This is a service routine called by the Monitor to process 
input messages, performing device-dependent transformations, 
and field validity checking, conversion and padding according 
to user-specified editing characteristics. 


8 Output Utility 
This is a service routine executing as a subsystem to process 
output messages by performing device-dependent 
transformations, and then pass the messages to the Front End. 


For detailed documentation of these facilities, see Message 
Mapping Utilities and the Utilities Users Guide. 


Other service routines of the Intercomm system for processing 
requests associated with special subsystem design requirements are: 
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@ Store/Fetch 


This facility allows a subsystem to save and retrieve a temporary 


or permanent data string identified by a user-defined key. One 
or more subsystems can access each stored data string. (See 
Store/Fetch Facility.) 

@ Dynamic Data Queuin DD 


This facility allows a subsystem to save and retrieve a set of 
related data strings (a data queue) identified by a user-defined 
name. One or more subsystems can access each DDQ which may be 
transient or permanent. A DDQ may also be used for collecting 
messages destined for another subsystem, a printer, or a batch 


program. (See Dynamic Data Queuing.) 


e Table Facility 


This facility provides for creating a temporary table with a 
unique user name in core storage above the 16M line. Table entry 
data strings may then be added, updated or retrieved by the same 
or another subsystem, and may have keys for sorting and retrieval 
as a user option. (See Table Facility.) 


e CRT Page Facility 


This facility allows a subsystem to write a set of output 
messages to a CRI terminal-oriented Page Data Set (Release 9) or 
to a table via the Table Facility (Release 10). The first 
message of a set is also sent to the Front End automatically. 
The terminal operator may then enter commands processed by the 
Paging subsystem to retrieve and browse through the pages of an 
output message set. (See Page Facility.) 


e Data Base Management System Support (DBMS) 


This facility consists of service routines for each supported 
DBMS (IDMS, ADABAS, TOTAL, DL/I) which allows access to the DBMS 


from Intercomm. (See Data Base Management System Users Guide.) 
e Dynamic File Allocation (DFA) 


This facility allows a subsystem to create (allocate) and/or 
access a sequential data set, or to access a VSAM data set, 
specifying its DSNAME as part of subsystem logic, rather than 
with execution JCL. (See Dynamic File Allocation.) 


e Signed-on Operator-Id Checking 


When executing under the security control of the Intercomm 
Extended Security System (ESS), a subsystem may call a service 
routine (SECUSER) to determine the user-ID of the operator at the 
terminal from which the transaction to be processed was entered. 


(See Extended Security System. ) 


e LU6.2 Support (See Section 2.2.3 and SNA LU6.2 Support Guide.) 
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2.4 SUBSYSTEMS 


Intercomm-supplied subsystems are written in reentrant Assembler 
Language, and include the Output Utility, the Change/Display Utility, 
the Page Browsing Subsystem and many command processing subsystems. 


The Output Utility allows a programmer to specify predefined 
report and display formats so that simply constructed output messages 
from a subsystem can be expanded, columnized, headed and subheaded, and 
displayed upon different types of devices without concern to the 
subsystem creating the message. Output Utility display formats can be 
changed without program modifications. 


The Change/Display Utility allows simple inquiry and file 
maintenance via predefined keyword input messages from terminals 
causing access to data files defined by tables. The Display Utility is 
used in conjunction with the Output Utility to produce varied report or 
display formats. 


The Page Facility processes commands from CRT-type terminals to 
browse through a series of output display screens created by the PAGE 
System program. Subsystems make use of this feature by calling the 
PAGE interface program during message processing. The terminal 
operator interacts with the Page Facility directly. 


Command processing subsystems process Intercomm standard messages 
to accomplish the start/stop of system functions, message switching 
between terminals, displaying and changing the status of system control 
parameters, display of statistics, etc. The commands and text syntax 


are described in System Control Commands. 


User-supplied subsystems accomplish application-dependent message 
processing. Each may call any Intercomm service routine or 
user-supplied subroutine, and may be written in COBOL, Assembler or 
PL/1. 


2.4.1 Reentrant vs Nonreentrant Subsystems 


In an interactive on-line environment, the probability is very 
high for more than one terminal operator to enter concurrent requests 
to be processed by the same _ subsystem. To accomplish the 
multithreading of concurrent requests, application subsystems should be 
coded as reentrant, that is, variable data is defined and processed in 
a dynamic working storage area (DWS) obtained for the exclusive use of 
one processing thread, Since COBOL does not allow the facility for 
dynamically obtaining a working storage area (no equivalent to 
Assembler GETMAIN/FREEMAIN processing), Intercomm provides an interface 
whereby COBOL subsystems may be coded as psuedo-reentrant so that 
multi-threading may be accomplished. A special interface to accomplish 
multi-threading in reentrant VS COBOL II programs is also provided. 
These interfaces and program coding requirements are described in 
Chapter 3. 
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2.5 INTERGOMM TABLES 


Intercomm is a generalized on-line system monitor, requiring 
information about specific operating characteristics of a particular 


installation. This information is supplied in the form of tables 
generated with Intercomm macro instructions. Application programmers 
are usually not involved in defining the Intercomm tables, except for 
table specifications which pertain to their own applications. The 


basic tables controlling message processing are as follows: 
e Front End Verb Table (BIVRBTB 


A table listing all valid transaction identifiers (verbs), 
and relating them to the subsystem required for message 
processing. There is one entry per verb, defined via a 
BTVERB macro. 


e Front End Network Table 


Tables describing the terminal network (relating individual 
devices to five-character station identifications), device 
hardware and operating characteristics, and output message 
queuing specifications. 


e Back End Station Table (PMISTATB) and Device Table (PMIDEVTB 


Tables describing terminal identifications and 
device-dependent characteristics to the Message Mapping 
Utilities and/or the Edit and Output Utilities. 


r System Parameter List (SPA) 


A table describing system-wide operating characteristics. 
This table may be extended to include installation-defined 
table entries, accessible to all user subsystems and 
subroutines (see Chapter 8). This table is generated via the 
SPALIST macro. 


e Data Set Control Table (DSCT 
A table generated by the File Handler describing on-line data 


sets. Information in this table is derived from JCL and file 
control (FAR) parameters at execution startup time. 


e Subsystem Control Table (SCT) 


A table listing the program properties (reentrancy, language, 
entry point, etc.), message queue specifications (core and/or 


disk queues), and scheduling (resident or loadable, 
concurrent message processing limits, priority, etc.) for 
each subsystem. There is one entry per subsystem, defined 


via a SYCTTBL macro. 


The above listed tables are described in detail in the Operating 


Reference Manual. Additional tables describe detailed functions for 


the system programs, service routines and utilities. 
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2.6 INTERFACING WITH THE INTERCOMM MONITOR 


Each message processed by Intercomm consists of a 42-byte header 
prefix, plus application-oriented message text. The message header is 
prefixed to each input message by the Front End and is analyzed by the 
System Monitor for all message processing control. The particular 
fields of the header which control message routing are Receiving 
Subsystem Code (MSGHRSC) and Receiving Subsystem Code High-Order 
(MSGHRSCH). This two-byte code is initialized by the teleprocessing 
interface when it constructs the header from the verb supplied at the 
beginning of the message text. The Front End Verb Table relates user 
verbs to their corresponding subsystem codes via coding of BTVERB 
macros (see Basic System Macros) in a user member USRBTVRB copied into 
the system BIVRBTB which contains the Intercomm system verbs. 


All subsystems are defined to Intercomm by an entry in the 
Subsystem Control Table (SCT). There is one entry for each subsystem 
which defines the program’s general characteristics, scheduling 
requirements and message queuing specifications. Each subsystem must 
be assigned a unique two-character subsystem code for message routing. 
Definition of Intercomm system subsystems for utility and command 
processing is provided in the released member INTSCT. 


The Subsystem Control Table entry for each user subsystem is 
defined using the SYCTTBL macro which is coded in a user member USRSCTS 
copied into the system INTSCT at assembly time. A full description of 
the macro may be found in the Intercomm Basic System Macros manual. 


Many installations assign the responsibility of coding the 
Subsystem Control Table entries for individual user subsystems to the 
application programmer. At other installations, the Intercomm System 
Support Manager performs this task. In either case, the SYCTTBL macros 
must be coded with care, as there is one table controlling all user and 
system subsystems in operation when Intercomm is executing. 


The most significant SYCTTBL macro parameters for COBOL 
subsystems are: 


e@ LANG=RCOB 
For reentrant COBOL subsystems (LANG=COB if nonreentrant). 


e SBS P=xxxxxxxx or LOADNAM=xxxxxxxx (for dynamic load) 


Specifies the subsystem entry, that is, the PROGRAM-ID of the 
COBOL subsystem (SBSP), or the load module name (LOADNAM). 


e GET=nnnnn 


Only meaningful if LANG=RCOB is coded. It specifies the 
amount of dynamic working storage (initialized to low-values) 
to be provided via the Linkage Section on entry to a 
reentrant COBOL subsystem. The amount specified may be up to 
64K minus 308 bytes (which is used for a link/save prefix 
area, and for the DWS protection option described in Chapter 
oe 
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FREE=nnnnn 


Only meaningful if LANG=RCOB is specified. The GET parameter 
must be specified to use FREE. It indicates the amount of 
the dynamic working storage area, provided on entry (via GET) 
to the reentrant COBOL subsystem, which should be freed when 
the subsystem completes. It defaults to the value specified 
for GET. (See Section 9.4 for further details.) 


TCTV=nnn 


Expected maximum processing time (in seconds) in a 
high-volume environment before the subsystem is assumed to be 
looping, or in an extended wait for file or data base access, 
and should be timed out. Considerations for this value 
depend on subsystem processing such as data base access, file 
updates, number and type of file accesses, exclusive control 
for file updates, number of output messages created, enqueue 
lock-out possibilities, etc. 


MNCL=nn 


Specifies the maximum number of concurrent threads that can 
be executed through this specific subsystem during a high 
activity period (when more than one operator enters 
transactions routed to this subsystem). 


RESOURC=name 


This parameter is used to control concurrent access to a 
resource (file, table, data base, etc.) across _ several 
subsystems in one Intercomm region. The name is also coded 
for the ID parameter of a RESOURCE macro (coded before all 
SYCTTBLs in the SCT) which identifies the shared resource and 
the maximum concurrent subsystem threads that may be 
activated for that resource. Note that the maximum share 
count coded on the RESOURCE macro overrides the combined MNCL 
value for all the subsystems "naming" that resource. An 
internal enqueue is issued (no time-out). While using this 
feature will affect response time during peak activity, it 
does not affect the TCTV for a subsystem, which goes into 
effect after shared control of the resource is granted. 


2.7 INTERCOMM MESSAGE HEADER 


The 


Intercomm message header is constructed by the Front End for 


each message when it arrives from a terminal. New messages created 
within the subsystem must be prefixed with the standard forty-two-byte 
header format, which is constructed by copying the input message header 
to an output message area and then altering appropriate fields. Figure 
7 lists the names and formats of all the fields in the message header, 
and describes their contents and changeability. 
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Sy 


J 
Alter 
Field Name |} Length Legend* 


MSGHLEN Length of message including 
header (binary number) 


MSGHQPR Teleprocessing segment I/0 code: 
02/F2=full message; 
00/FO=header segment; 
01/Fl=intermediate segment 
03/F3=final (trailer) segment 
MSGHRSCH High-order receiving subsystem code 
MSGHRSC Low-order receiving subsystem code 


MSGHSSC Low-order sending subsystem code 


MSGHMMN Monitor message number assigned by 
Message Collection (binary) 


MSGHDAT Julian date (YY.DDD)** 
MSGHTIM Time stamp (HHMMSSTH) 
MSGHTID Terminal identification (originating 
terminal on input messages, J 


destination terminal on output) 
or Broadcast Group name 


MSGHFLGS Message indicator flags (MSGHCON - Rel 9 


(MSGHPID) Reserved area (MSGHFLGS - Rel 9) 


MSGHBMN Front End message number - Rel 10 
(binary) 


MSGHSSCH High-order sending subsystem code 
MSGHUSR User/system processing code*** 


Used for special processing 
by the Front End (MSGHBMN - Rel 9) 


MSGHLOG Log code (see Figure 11) 

MSGHBLK/ Reserved area/ 

MSGHRETN Subsystem return code (for log code 
X’'FA’ entries only) 


MSGHVMI Verb or message identifier 
interpreted by receiving subsystem 


Figure 7. Intercomm Message Header Fields (Page 1 of 2) 
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Alter Legend: 


Y = Must be filled in for intersubsystem message switching and 
output messages passed to FESEND (MSGHVMI should be set to 
X’'57' or X’67"', as appropriate, for output messages passed 
directly to FESEND) 


Should be filled in for user’s own information (required by 
Intercomm for message restart/file recovery and Log Analysis) 


Do Not Touch (must be copied from input to output message 
header area) 


L = May be modified for user codes based on subsystem logic 


The period represents a one-byte message thread number (for resource 
management and/or message restart purposes). 


“*MSGHUSR is used by Intercomm modules as follows: 


1. If the BIVERB macro for the input verb has HPRTY=YES coded; 
contains a C’P’ to request priority queuing for the 
subsystem. The user may move a C’P’ to this field to request 
priority queuing for output messages to a terminal (via 
FESEND) or to another subsystem (via Message Collection). 


For an input message from a BTAM 3270 CRT which contains SBA 
sequences, has a C’F’ in the Ol log record. 


For output messages to a switched async device (Teletype, 
Dataspeed 40, and 2740); a C’B’ requests disconnect after 
transmitting the output message. 


For output messages to a switched Teletype or Dataspeed 40 
device; a C’X’ requests using the alternate call-list for the 
next input message (as described in the BIAM Terminal Support 
Guide). 


For output messages discarded by the Front End, a C’F’ 
indicates the message was flushed by command, a G’Z’ that it 
was discarded by the VIAM OTQUEUE user exit (Rel 10 only). 


If none of the above considerations are applicable, the subsystem 
may use this field for messages queued to other user subsystems, 
or for special logging information. The LOGPRINT utility always 
prints the value coded in this field (in hexadecimal). 


Figure 7. Intercomm Message Header Fields (Page 2 of 2) 
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7 at Gee MSGHQPR and MSGHVMI Fields 


In general, a COBOL application subsystem does not need to be 
concerned with the MSGHQPR field, unless processing long input from a 
Teletype or similar device where message input may be segmented. In 
this case, the DDQ Facility must be used to store and sequentially 
forward the input message segments. Otherwise, input messages from the 
Front End always contain a QPR of C’2’. Both MMU and the Output 
Utility set the QPR to X’02’ for output messages unless the Output 
Utility finds it necessary to segment an output message, in which case 
a segment code is used. The various uses of the MSGHVMI field for 
input and output message processing may be determined from the index 
references to this field at the end of this manual. 


2.8 INTERCOMM MESSAGE FLOW USING MESSAGE MAPPING 


The interaction of Intercomm system components, tables and 
subsystems with the Message Mapping Utilities (MMU) is summarized in 
Figure 8; the path of one input message and its corresponding output 
message is traced, and the numbered arrows in the diagram correspond to 
the numbered paragraphs below. 


1 The Front End reads an input message and prefixes a 42-byte 
control header containing routing information, time, date, 
originating terminal and message length. The message is then 
queued for subsystem processing by Message Collection. 


2 The System Monitor schedules the subsystem and retrieves the 
message based upon the Subsystem Control Table (SCT) 
scheduling criteria. 


3 The message is passed to the subsystem. 


4 Input in terminal-dependent format is transformed to a 
terminal independent form by a call to a Message Mapping 
Utility (MMU). 


5 The subsystem performs message processing logic, requesting 
I/O service functions from the File Handler or Data Base 
Manager interface. 


6 The subsystem creates one or more terminal-dependent output 
messages by calling MMU. 


7 The subsystem passes the message formatted by MMU to the 
Front End by a call to FESEND (unless MMU is asked to perform 
this function). 


8 The subsystem returns control to the System Monitor, passing 


a return code indicating normal completion or an error 
condition. 
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In the Intercomm multithread environment, this same sequence of 
events is carried out concurrently for many messages. 


VERB 
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(1) MESSAGE 
FRONT END COLLECTION 


SUB- 
SYSTEM 
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MAPS 


MESSAGE 


MAPPING 
UTILITIES 


SYSTEM © APPLICATION 
MONITOR SUBSYSTEM 
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FESEND @ (5) 


ACCESS = FILE HANDLER 
METHOD OR OR DATA BASE 
DATA BASE MANAGER 


MANAGER INTERFACE 


Figure 8. Intercomm Message Flow Using Message Mapping 


25 


Chapter 2 Message Processing and 
Control Under Intercomm 


2.9 INTERCOMM MESSAGE FLOW USING EDIT AND OUTPUT 


The path of one input message and its corresponding output 
message is traced in Figure 9; the numbered arrows in the diagram 
correspond to the numbered paragraphs below. 


1 The Front End reads an input message and prefixes a 42-byte 
control header containing routing information, time, date, 
originating terminal, and message length. The message is 
then queued for subsystem processing by Message Collection. 


2 The System Monitor schedules the subsystem and retrieves the 
message based upon the Subsystem Control Table (SCT) 
scheduling criteria. 


3 The Edit Utility is called (if required) and the input 
message is edited according to the Edit Control Table (ECT). 


4 If Editing is not successful due to invalid input data, the 
Edit Utility optionally creates an error message for the 
originating terminal and queues it for the Output Utility by 
calling Message Collection. The subsystem is not activated. 


5 If Editing is successful, the edited message is passed to the 
subsystem. If editing is not required, the unedited message 
is passed directly to the subsystem. 


6 The subsystem performs message processing logic, requesting 
I/O service functions from the File Handler or Data Base 
Manager interface. 


7 The subsystem creates one or more output messages and queues 
them for the Output Utility by calling Message Collection 
(COBPUT). 


8 The subsystem returns control to the System Monitor, passing 
a return code indicating normal completion or an error 
condition. 


9 The System Monitor schedules the Output Utility and passes 
the output message(s) to it for processing. 


10 The Output Utility performs formatting, if specified in the 
message header, according to entries in the Output Format 
Table (OFT), finally passing the message to the Front End via 
a call to FESEND. 


11 The Output Utility returns to the System Monitor. 
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Figure 9. Intercomm Message Flow Using Edit and Output 
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2.10 THE INTERCOMM SYSTEM LOG 


The Intercomm system log (INTERLOG) provides system journaling 
and maintains a historical record of all traffic within the system. 
Complete documentation of performance during on-line processing is 
thus provided, along with system control for restart/recovery. 


Message traffic is recorded at the time of entry on a subsystem 
queue, and at the time message processing begins and ends within each 
subsystem. Subsystems may make user entries on the system log by 
calling an Intercomm system program (LOGPUT). 


An installation may suppress some or all log entries, depending 


on its own requirements. The system log is optionally used at 
Intercomm system restart time to restore message traffic within the 
system at the time of failure. The logging entries are blocked and 


written to a variable-length sequential data set which may reside on 
disk or tape. 


Log entries are in one of two formats: HT--42-byte message 
header and full text, as the message arrives from a terminal and is 
queued for a subsystem, or queued for a terminal; or HO--header-only 
entries, to mark progress through the system or error conditions. 


Log entries are identified by a code in the MSGHLOG field of the 
message header. The time and date stamps (MSGHTIM and MSGHDAT) in the 
message header are updated for each log entry. 


Progress of a message through a specific subsystem, or through 
the Front End, is indicated by the same Monitor Message Number 
(MSGHMMN) in each log record (01-30-FA or F2-F3). Complete progress 
of a message, from the first processing subsystem to final 
transmission, is indicated by the same Front End Message Number 
(MSGHBMN). The log may be printed completely or selectively via the 
Intercomm off-line utility LOGPRINT, described in the Operating 
Reference Manual. 


A timing analysis utility (Log Analysis), which is supplied with 
Intercomm, may be used off-line to produce a report of message queuing 


and processing time. Statistics for messages by terminal, verb, 
subsystem, and/or system totals are provided. See the Operating 


Reference Manual. 


The logging entries may be input to user-written batch programs 
to provide performance analysis in detail, such as traffic vs. network 
configurations, accounting routines, etc. 


Figure 10 illustrates the log entries for one input message and a 


corresponding output message generated via the Output Utility. Number 
6 appears only if executing in Test mode, since there is no Front End. 
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For live or simulated mode Intercomm, two additional entries are an F2 
log code (HT) when the message is queued for the Front End via FESEND 
(appears in place of the 40 log entry between the 30 and FA entries), 
and an F3 log code (HO) when the message was transmitted by the Front 
End. Logging of the message to be transmitted (log code F2) occurs 
before final Front End processing (idles insertion, New Line to SBA 
sequence conversion, etc.). 


If Message Mapping is used and the message is passed to the Front 
End via FESEND (Figure 8), only the log entries numbered 1, 2, and 4 
appear for each message processing thread, with the FESEND log entry 
(log code 40 or F2) appearing in place of log entry 3. Log entries 3, 
5, and 7 represent the additional processing for a message passed to 
the Output Utility (receiving code U). 


MSGCOL MONITOR 
log code 01 log code FA 


HT HO 


MONITOR MONITOR 
log code 30 log code 


HO HO 


APPLICATION FESEND 
OPTIONAL log code log code 
41-6F HT 
HT 


MSGCOL MONITOR 
log code O01 log code 


HT HO 


= Intercomm message header and message data 
Intercomm message header only 


Figure 10. Sequence of Log Entries 


Figure 11 describes all the Intercomm log codes. Note that user 
log entries may only use log codes in the range X’41’ to X’'6F’. 
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Internal esters. 
Code Code Format | Description 


eT renee anorerar thn TN NTE oS st ES TOW-OHTH rrr H-NET enw SEFENNND S>vEET epimers Sen 


Checkpoint Record 


J 
Restart 


Origin Use 


Checkpoint 


Message queued for subsystem 


by Front End or a subsystem 


Message 
Collection 


Message restarted through 
the system 


LOGPROCG 


C’p’ 


Message restarted--related 
to Data Base Recovery 


LOGPROG 


X'21-2F' 


See SNA LU6.2 Support Guide 


Message passed to subsystem 
for processing 


Message passed to Front End 
(test mode only) 


User called LOGPUT 


File Recovery before-images 


Front End 


Subsystem 
Controller 


FESEND 


Any 
Subsystem 


IXFLOG 


Checkpoint Records indicator 


File Recovery after-images 


Intercomm Startup 


IXFCHKPT 


IXFLOG 


LOGPUT 


Message restart begun 


LOGPROG 


=z ew ew ees es es ee ewe ewe ees ws oe —e ee ee ee ow on werewewewewwrererwewasw ws es weeeweewwe se es swe ese = = —_"@ = we ewes weese ww | = eee sw wee = we 


Message restart finished: 
all subsequent log entries 
produced by live Intercomm 


LOG PROG 


Intercomm Closedown 


LOGPUT 


Region started (Multiregion 
only) (Text=Region-id(s)) 


MRINTER 


Message successfully queued 
Reg 


Internal Code: Log code in core during processing (snaps and dumps) 

External Code: Log code after translation by LOGPUT (INTERLOG printout) 

Format: HT for header and text, HO for header only 

Restart Use: Yes, No, User (specified via user-coded system macros) J 


Figure 11. INTERLOG Entries (Page 1 of 2) 
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Restart 
Code Format | Description Origin Use 
HO Message successfully passed MRQMNGR 
to Satellite Region CR only 
HO Message lost (Region/Hold Q MRQMNGR 
full) or flushed (SR/SS down) CR only 
HT Sign on/off processing, ESS 
security violation messages 
HO Normal message complete Subsystem 
Controller 
HO Unprocessed message--invalid Message 
subsystem/QPR code Collection 
C’6’ | FC HO Unprocessed message--core and Message 
disk queue full Collection 
c’8’ FD | HO Message cancelled--program Subsystem 
| error, time-out or I/O error; Controller 
or flushed by command (Rel 10) 
c’9’ FE HO Message flushed by Retriever, Retriever 
used when application program 
does not obtain (via GETSEG) 
all parts of a segmented 
message; or message failed 
security check SYCT400 
c’l’ Fl HT Message after verb USRBTLOG 
verification (optional) 
c’2’ F2 HT Message queued for FESEND 
transmission 
Gt3” F3 HO Message transmitted, Front 
discarded (MSGHUSR=Z-Rel 10), End 
or flushed (MSGHUSR=F-Rel 10) 
c’4’ F4 HO 3270 output message content BLHOT 
invalid--message dropped. 
C'5'= F5- HT Transmitted DDQ msg status: Front 
c’8’ F8 see SNA Term. Support Gd. End 
X'FF’ FF HT Intercomm Restart Accounting MSGAC 
Figure 11. INTERLOG Entries (Page 2 of 2) 
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Z¢Ll ADDITIONAL APPLICATION PROCESSING FACILITIES 


In addition to the application programming facilities described 
in this and related manuals, the application designer should be aware 
of the following processing options available under Intercomn: 


@ Off-line batch region execution: the Intercomm File Handler, 
DFA, DDQ, Store/Fetch and MMU may be executed by an off-line 
program (coded as non-reentrant) to prepare a file, data 
strings, or messages for on-line access. See the associated 
manuals for linkedit considerations. 


e Multiregion Facility batch region interface: when executing 


an on-line Multiregion system, any batch application region 
may pass a message or a FECMDDQ (see also Chapter 9) to an 
on-line subsystem or to the Front End via the Output Utility 


subsystem. See Multiregion Support Facility. 


e Time controlled processing: instead of being triggered by an 
input terminal message, an application may be designed to 


execute at a particular time of day. See the Operating 
Reference Manual. 


® Segmented input message processing via DDQ: segmented input 


messages, whether gathered by Intercomm from a remote device 
(CPU, etc.) or generated by an application program, are 
placed on a DDQ and may be serially passed to an application 
subsystem via a DDQ Facility interface. See Dynamic Data 


Queuing. 


e Dynamic linkedit feature: dynamically loaded user subsystems 
and subroutines are linkedited to called Intercomm resident 
routines and COBOL support routines at startup, thus reducing 
the size of the load modules. The LOAD system control 
command is used to force a relinkedit of a new version of a 
dynamically loaded program placed on the load library while 
Intercomm is executing. See the Operating Reference Manual. 


e User exits: various user exits for installation dependent 
processing are listed in the Operating Reference Manual. 


@ Binary table search: service routines for incore table 
searching are described in the Assembler Language Programmers 


Guide. 

® IJKPRINT: service routine to write one or more print lines 
to SYSPRINT (SYSOUT data set). See the Operating Reference 
Manual. 

e IJKDELAY: service routine to request a timed delay 


(averaging 100 milliseconds) of program processing, to allow 
other work (subsystem threads) to process. See the Operating 
Reference Manual. 
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CODING AN INTERCOMM SUBSYSTEM IN COBOL 


ee PROGRAM STRUCTURE 


An application subsystem executing under Intercomm control is 
activated to process one message. The following examples typify the 
concerns of message processing logic: 


Lis 


Interpretation of message text to reroute administrative data 
to another terminal. 


Editing of message text, creation of a record on a sequential 
data set for later off-line processing and preparation of an 
acknowledgement message to the originating terminal. 


Editing and analysis of message text to determine file 
retrieval and/or update criteria, data file access, 
preparation of a response message for the operator at the 
originating terminal. 


Analysis of an application-oriented control message and 
appropriate action, such as checking batch totals from 
example 2, above, or acting on a special request to close a 
file or perform some other control function. 


All subsystems are called by Intercomm and execute as subroutines 
with standard parameters passed on entry to the progran. These 
parameters must be defined in the Linkage Section of the COBOL 
subsystem in the following order: 


see 


The input message to be processed (42-byte header plus 
message text) of maximum length 4096 bytes. 


The System Parameter Area table (a 500-byte internal table 
plus appended user fields, if any), of maximum length 4096 
bytes. Only the user fields may be modified, if desired. 


The Subsystem Control Table entry for the called subsystem (a 
100-byte table entry). This may not be modified. 


A fullword computational field (PIC S9(8)) into which the 
subsystem must place an appropriate Intercomm return code 
before returning control to Intercomm. 


The dynamic working storage area acquired by Intercomm for 
this reentrant subsystem to use (for all non-constant user 
and Intercomm-required fields) while processing a particular 


message thread. The size of the area obtained is specified 
by the subsystem’s Subsystem Control Table entry (GET 
parameter). For nonreentrant COBOL and for FORTRAN 


subsystems, see Appendix E. 
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Figures 12 and 13 illustrate a reentrant COBOL subsystem with the 
Linkage Section initialized with the parameters described above for the 
Intercomm operating environment. A precise definition in the Linkage 
Section of the System Parameter Area (SPA) and Subsystem Control Table 
entry (SCT) is only required if these table areas are referenced by the 
subsystem during processing. Otherwise, an elementary 01 (PIC X) to be 
used aS a parameter save space for the Procedure Division USING clause 
is sufficient. Note that the DWS area passed to the subsystem is that 
following a 256-byte Link/Save prefix used exclusively by the Intercomm 
interface routines. 


ID DIVISION. 

PROGRAM-ID. EXAMPLE]. 

REMARKS. THIS IS A REENTRANT INTERCOMM COBOL SUBSYSTEM PROGRAM. 
ENVIRONMENT DIVISION. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

77 CONSTANT- ITEMS PICTURE X(8) VALUE ‘CONSTANT’. 


THESE ARE NEVER-CHANGING LITERAL VALUES... 


LINKAGE SECTION. 
INPUT-MESSAGE-AREA PICTURE X(4096). 
SPA PICTURE X(500). 
SCT PICTURE X(100). 
INTERCOMM-RETURN-CODE PICTURE S9(8) COMPUTATIONAL. 
DYNAMIC -WORK-SPACE. 
02 OUTPUT-MESSAGE-AREA PICTURE X(2000). 
O02 FILE-RECORD-AREA. 


02 INDEPENDENT-ITEMS PICTURE S9(7)V99 COMPUTATIONAL-3. 


ALL MODIFIABLE STORAGE MUST BE DEFINED HERE... 
02 RETURN-VALUE PIC 99. 
OTHER AREAS... 
PROCEDURE DIVISION USING INPUT-MESSAGE-AREA, SPA, SCT, 
INTERCOMM-RETURN-CODE, DYNAMIC-WORK-SPACE. 
| PROGRAM PROCESSING LOGIC... 
..-GO TO INTERCOMM. 
INTERCOM. 


MOVE RETURN-VALUE TO INTERCOMM-RETURN-CODE. 
GOBACK. 


Figure 12. Reentrant COBOL Subsystem Structure 
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SYSTEM 
INTERCOMM PARAMETER 
SYSTEM AREA 
Ga SUBSYSTEM 
REENTSBS CONTROL 
LANGUAGE TABLE BB 
INTERFACES AA XX YY 


SUBSYSTEM XX 
SUBSYSTEM AA 


REENTRANT 
COBOL SUBSYSTEM BB 


SUBSYSTEMS 


LINKAGE WORKING-STORAGE 


POINTER 


— — POINTER a 


CONSTANT ITEMS 


—_— ws @ = eee |= ww S| Ss es Ss 


MVS 
SUBPOOLS 


AREAS 
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INTERCOMM DYNAMIC POOL STORAGE 
(1a) BB INPUT (13 ) BB INPUT 
MESSAGE A MESSAGE B 


(a) RET-COD A (43 RET-COD B 


Dynamic -Work- 


LINK/SAVE 
OUTPUT MSG. 

RECORD AREAS 
INDEP ITEMS 


Figure 13. 


Space For Space For 
SUBSYSTEM BB SUBSYSTEM BB 
Thread A: Thread B: 
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LINK/SAVE 
OUTPUT MSG 

RECORD AREAS 
INDEP ITEMS 


MVS ACCESS 
METHODS 


Reentrant Application Program Environment. 
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After a subsystem completes processing and returns control to the 
Subsystem Controller (see Chapter 2), the Intercomm return code is 
checked to determine whether the message should be cancelled due to an 
error. Then the return code is placed in the externally saved input 
message header in MSGHRETN (MSGHCON+1 for Rel 9), and the header is 
logged with an appropriate log code (see Chapter 2). Figure 14 
describes Intercomm return codes. If the subsystem (or a called 
subroutine) program checks, or the return code is 8 or 12, USRCANC 
returns an appropriate error message to the terminal operator. USRCANC 
is a user exit provided by Intercomm under the name PMICANC, and is 


described in the Operating Reference Manual. 


Return Subsystem Controller 
Code Meaning Error Action 


a 


pe gg ta gn an 


Successful completion None 


Applies to Assembler Language subsystems only 

Unrecoverable error Message canceled, CALL to USRCANC 
condition (no core, 

MAPEND error, etc.) 


I/O error Message canceled, CALL to USRCANC 


(Reserved for internal use) | --- 
User codes to identify None 
unusual condition 

File or DBMS Update None 
Subsystem, no message 

restart required* 

File or DBMS Inquiry None 
Subsystem, message 

restart required* 


Same as 20-60 None 
255 Reserved for MROTPUT = [None i tti—(i‘“‘; O;™#*~S 
900% Successful completion [None = = 
912 Force Backout-on-the-Fly* | File updates or additions backed out 


*See File Recovery Users Guide or Data Base Management System 
Users Guide 


**xUsed only when a called Assembler Language subroutine (MSGCOL/FESEND) 
has requeued or freed the input message. If MAPIN has been called ande 
has freed the input message, a return code of O must be used. 


Figure 14. Intercomm System Return Codes 
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Se MESSAGE PROCESSING CONCEPTS 


The application program receiving the message may analyze the 
Verb Message Identifier (MSGHVMI) in the header and/or message text 
fields to further control message processing logic. The meaning of 
different VMI values is dependent on the design requirements of the 
program receiving the message. For example, the Front End sets the VMI 
to X’'00’ to indicate to the Subsystem Controller that editing by the 
Edit Utility is required, based on the specification in the Front End 
Verb Table for a given verb (BIVERB macro, EDIT parameter). The 
PREPROG interface routine then analyzes the VMI to determine if the 
Edit Utility should be called prior to passing the message to the 
subsystem (if editing is successful). A VMI value of X’FF’ 
(high-values) indicates that no processing is required by, or was 
performed by, the Edit Utility. Any other value in the VMI indicates 
that the Edit Utility has already processed the message or that a user 
subsystem has placed a code in the field before switching (queuing) the 
message to the currently processing subsystem. 


An application subsystem creates an output message by building a 
42-byte header and appropriate message text. This new message is 
either passed to the Front End via FESEND for transmission to the 
terminal, or is queued for later processing by the Output Utility or 
some other subsystem by calling the Intercomm system program COBPUT. 
The subsystem destined to receive this new message is determined by the 
receiving subsystem code fields (MSGHRSC, MSGHRSCH) in the message 
header. The receiving subsystem may then analyze the VMI, as 
appropriate. The Output Utility, for example, analyzes the VMI to 
determine whether or not prespecified output message formatting is to 
be performed. If the output message is passed directly to FESEND, 
MSGHRSCH and MSGHRSC should be set to binary zeros (low-values). 


Subsystem logic for input message text analysis and output 
message text creation varies, depending on whether Message Mapping or 
the Edit and Output Utilities are used. Figures 15 and 16 illustrate 
subsystem processing logic for these two cases. 


It is very important to note that the input message area 
(Intercomm header and message text) may only be examined (treated as a 
read-only area) by the application program. It may also be copied to 
an output message area (header only, or header and text) where it may 
be added to or changed, depending on program logic. Never add data to 
the input message text area. 
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Figure 15. 


Subsystem Logic 


Coding an Intercomm 
Subsystem in COBOL 


Comments 
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The subsystem determines (perhaps based 
on the particular verb entered) if the 
input message requires mapping. 


MAPIN is called to convert the input 

message to text consisting of fixed 

length fields with a three-byte prefix of 
length (two bytes) and flag (one byte), 
indicating the result of field conversion. 
All terminal-dependent characters are 
removed. 


Processing logic is application-dependent. 


Output text data has a format similar to 
mapped input text: fixed length data 
fields with a three-byte prefix of length 
(two bytes) and attribute (one byte), 
indicating terminal-dependent field 
characteristics, if applicable. 


MAPOUT is called to build an output 
message text stream, padding, justifying 
and/or converting data fields from 
computational form, as necessary, and 
adding constant heading information as 
required. 


MAPEND is called to return the output 
message (header and text) in terminal- 
dependent format ready for transmission, 
or to dispose of the output message. 


FESEND is called to pass the output 
message to the Front End (if MAPEND has 
not disposed of the output message). 


Subsystem completes its processing and 
returns to Intercomm. 


Subsystem Logic Using Message Mapping Utilities 
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Comments 


ee re oe TC SS SS TOT SY NATIT ST CY SS EEN RFIRENT MREPPE ESE 
I LS TT a 


If the Front End Verb Table indicates EDIT=YES, 
Initial- the subsystem receives an edited input message 
ization automatically. The message text consists of fixed 
Logic length data fields or variable length data fields 
prefixed with a 1l-byte identification and a l1-byte 
length code (binary values). 


Processing Processing logic is application-dependent. 
Logic 


The subsystem prepares an output message by 
creating a message header and the appropriate 
Prepare text. Output message text fields are either 
Output fixed length data fields or variable length 
Message fields with a prefix as described for Edit, above. 
Message header fields RSCH, RSC, and VMI identify 
the specific message text format. 


COBPUT 


queue the COBPUT is called to queue the output message for 
message for processing by the Output Utility subsysten. 
Output 


Final Subsystem completes its processing and returns to 
Processing Intercomn. 


GOBACK 


Figure 16. Subsystem Logic Using Edit and Output Utilities 
(Page 1 of 2) 
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ENTRY 


Output Utility 
message for- 
Matting logic 


The Output Utility performs message formatting 
according to user specifications, adding constant 
heading information as required. 


FESEND 


put message 
in terminal 
queue 


FESEND is called to pass the output message to the 
Front End. Output completes its processing and 
returns to Intercomm. 


Figure 16. Subsystem Logic Using Edit and Output Utilities 
(Page 2 of 2) 


cS ee SUBSYSTEM CQDING 
The language interface routines are: 
e PREPROG--which interfaces the Subsystem Controller to the 


COBOL subsystem by initializing the reentrant (if VS COBOL 
II) or pseudo-reentrant (if OS/VS or ANS COBOL) environment 


for each subsystem processing thread. If the VMI of the 
input message is X’'00’, the Edit Utility is called to edit 
the message. If successful, the subsystem is activated. If 


unsuccessful, EDIT returns an appropriate error message to 
the input terminal and PREPROG returns to the Subsystem 


Controller (subsystem not activated). If the subsystem is 
loaded above the 16M line, it will receive control in 
31-Amode. 


@ COBREENT--which maintains linkages and save areas (and 
performs Amode switching) for COBOL subsystem interface to 
Intercomm service routines and for user subroutines, thus 
preserving the multithreaded reentrant environment while 


providing standard CALL interfaces to the routines. For VS 
COBOL II, COBREENT saves and restores the thread’s run unit 
environment. 
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C @e COBPUT--which is called via COBREENT to copy a message from 
the dynamic working storage of a COBOL program into the 
Intercomm-managed dynamic pool storage area before passing it 
to Message Collection to be queued for another subsystem. 


r) REENTSBS--table of Intercomm service routine and user-coded 
subroutine entry points, names and related characteristics. 


All COBOL subsystems and subroutines interface to Intercomm 
service routines and user subroutines using standard CALL ‘literal’ 
statements. Dynamic call is not supported. One routine only is 
called: COBREENT. The first passed parameter is the name of a code 
defining the actual routine to which interface is desired, subsequent 
parameters are those required by the called routine, and should be in 
Dynamic Working Storage if the subsystem (subroutine) can be loaded 
above the 16M line (must be a 24-bit address). Coding format: 


CALL 'COBREENT’ USING routine-code, parml[, parm2,...]. 


Subsequent chapters of this manual and of related message 
processing facility manuals contain detailed descriptions of applicable 
routine-codes and the required parameters. The Intercomm source text 
member ICOMSBS, listed in Appendix B, provides the definition of the 
halfword routine-code constants (PIC 9(4) COMP) used for calling most 
of the Intercomm service routines via COBREENT. To ensure that the 
correct code value is used, ICOMSBS' should be COPYed into the 
Working-Storage Section of each COBOL program as follows: 


01 COBREENT-CODES COPY ICOMSBS. 


Code names correspond to the entry point name defined in REENTSBS, and 
the code itself is an index value (offset) into the REENTSBS table (see 
Chapter 9). 


Figure 17 illustrates the basic coding required to implement an 
Intercomm subsystem and the definition of an input message and creation 
of an output message via an application to "echo" the text of an 
incoming message back to the originating terminal. The Message Mapping 
Utilities, the Edit Utility and the formatting capabilities of the 
Output Utility are not used. 


1. The message header is created by copying the input message 
header to the output message header area and adjusting the 
following fields: 


e §MSGHSSCH, MSGHSSC--Sending Subsystem Code 
Move in the original receiving subsystem code values, 


MSGHRSCH (to MSGHSSCH) and MSGHRSC (to MSGHSSC), to 
identify the current subsystem as the sending subsysten. 
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e MSGHRSCH, MSGHRSC--Receiving Subsystem Code 


Move in a predefined code to indicate further processing 
(the next subsystem) for this message (for FESEND, use 
low-values). 


e MSGHVM1--Verb/Message Identifier 


Move in a predefined code for subsystem processing, or to 
indicate to FESEND that the output message is not fully 
formatted, use X’'57’. If an output message is formatted 
by MMU, do not touch this field. 


e MSGHLEN--Message Length 


Modified to include header and text length of output 
message. 


e MSGHTID--Receiving Terminal Name 


If the originating terminal is to receive the response 
message, do not change. Otherwise, specify the receiving 
terminal name for the output message(s). 


2. The new message text is created by copying the input message 
text to the output text area, and then appending the author’s 
nMame and a message ending character (X'26’ or X'37"). 


3. Queuing of the output message for the terminal is 
accomplished via the service routine FESEND (FESENDC). 


4. The return code from the queuing routine must be analyzed to 
assure that the new message was actually queued, and recovery 
action taken if not. 


5. The last logical activity in the subsystem is to move a value 
to the Intercomm return code field and GOBACK to the 
Subsystem Controller. 

The program identification and entry point name must correspond 

to the subsystem entry point described in the Subsystem Control Table. 


The input-message entry parameter defined in the Linkage Section 
has been further detailed to reference the 42-byte input message header 
and the input message text as separate entities. See Chapter 2 for a 
description of individual fields in the message header. 


To assist the programmer in defining the message header, there 
are two source text members, ICOMINMG and ICOMDWS, listed in Appendix 
B; they may be COPYed into the appropriate portions of the Linkage 
Section. Additionally, the COPY member ICOMHEXC (for the Working- 
Storage Section) provides common hexadecimal codes. 


The entry parameters for the System Parameter Area (SPA) and 
Subsystem Control Table (SCT) entry for the subsystem are not detailed 
as there is no need to reference any of their individual fields. 
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The entry parameter for the Intercomm return code is used to 
indicate the result of message processing to the Subsystem Controller. 


The output message format appears as the first definitions in the 
Dynamic-Work-Space entry in the Linkage Section, which corresponds to 
the fifth entry parameter. 


Constants are defined as usual in the Working-Storage Section. 
Independent items, that is, areas of storage modified during program 
execution, must be included in the Linkage Section as part of the 
Dynamic-Work-Space definition. Such items also include storage areas 
required for Intercomm service routines and passed to those routines as 
parameters, whether or not the subsystem references or modifies those 
areas. Additionally, variable areas passed aS parameters to user 
subroutines must also be defined in the Dynamic-Work-Space. Unmodified 
constant values (map names, file DD names, etc.) may be defined in 
Working-Storage even though passed as parameter values to called 
routines, except if an OS/VS or ANS COBOL program is loaded above the 
16M line (see Section 3.4.1). For VS COBOL II, variable items may be 
in Working-Storage (see Section 3.4.3). 


Jia Message Switching Between Subsystems 


Any Intercomm subsystem may send a message to any other Intercomm 
subsystem. If a message is sent to some other subsystem, it is called 
"message switching." An application subsystem can switch a message to 
the Output Utility, which is another subsysten. The Change/Display 
Utility switches messages to the Output Utility. An application 
subsystem may switch (or requeue) a message to itself in the event that 
reprocessing or deferred processing of the message is required. An 
application subsystem may exceed an installation’s core limitations and 
be broken into several subsystems. One subsystem may receive a message 
input from a terminal, perform partial processing and develop 
intermediate results in the form of a message sent to a_ second 
subsystem. The second subsystem processes the intermediate results as 
an input message and may complete the message processing or develop 
additional intermediate results in the form of messages sent or 
switched to any other subsystem or subsystems. Any one of these 
subsystems might also switch messages to the Output Utility. 


Message switching between subsystems is accomplished by moving 
the input message header to an output message area, changing the 
receiving subsystem codes in the output header, adding (or copying) 
message text, and then calling COBPUT. The Verb/Message Identifier 
(MSGHVMI) may be initialized for interpretation by the receiving 
subsystem. A VMI equal to X’00’ indicates that the Edit Utility is to 
be called by PREPROG prior to activating the subsystem. 


To switch messages between terminals, the destination terminal 


identifier (MSGHTID), and the VMI, would also have to be changed before 
calling COBPUT or FESEND. 
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PP 5740=—=CH1 RELEASE 2.4 (BM US/V¥S COBOL 


14222255 MAY 2651994 


000010 I0 DIVISION. 
000030 REMARKS. TRIS REENTRANT SUBSYSTEM ECROS AN INPUT MESSAGE 
000040 CONTAINING UP TO 500 CHARACTERS OF TEXT BaCK TO THE 
900050 ORIGINATING TERMINAL. 
000060 IT COPIES THE INPUT TO THE OUTPUT MESSAGE AREA, 
000070 MOOIFIES THE. MESSAGE nEADER»s APPENDS THE AUTHOR'S NAME, 
000080 ANO MESSAGE ENOING CHARACTER, BEFURE CALLING FESENOC TO 
000090 QUEVE THE MESSAGE FOR THE INPUT TERMINAL. 
900100 ENVIKONMENT DOIVISION. 
000110 DATA OIVISION. 
000120 WORKING=STORAGE SECTION. 
000130 O01 HEX=-COOES COPY ICOMHEXC. 
O01 nEx=-cODES. 

HEX-00 PIC X VALUE * ', 

COOE-00 REDEFINES HEX=00 

HEX=15 PIC X YALUE * °, 

CODE=21 REDEFINES HEX—15 

HEX=37 PIC X YALUE ' °, 

CODE=55 REVEFINES HEX=37 

HEX=50 PIC X YALUE 'E*, 

CODE-80 REDEFINES HEX=—50 

HEX=51 PIC XxX YALUE * °. 

CODE-81 REDEFINES HEX—51 

HEX=—52 PIC X VALUE ° °, 

CODE-82 REDEFINES HEX—52 

MEX—53 Prc XxX VALUE * °', 

CODE=83 REDEFINES HEX=53 

HEX-54 PIC X VALUE * °, 

CODE-84 REDEFINES HEX—54 

HEX=—55 PIC x VALUE * °, 

CODE=65 REDEFINES HEX=-55 

HEX=56 PIC X VALUE * °, 

CODE-86 REDEFINES HEX=-56 

HEX=—57 P1C X VALUE * °, 

CODE~87 REDEFINES HEX=57 

HEX=72 PIC X VALUE * *, 

CODE-114 REDEFINES HEX=72 

HEX=FF PIC X VALUE * *, 

CODE-$255 REDEFINES HEX=FF 


C 
Cc 
C 
C 
Cc 
Cc 
Cc 
C 
Cc 
C 
C 
Cc 
Cc 
C 
Cc 
Cc 
Cc 
C 
Cc 
C 
Cc 
Cc 
C 
C 
Cc 
C 
C 


000140 O01 REENTSBS=CODES COPY ICUMSBS. 
OL REENTSBS~CQDES. 
THESE COOES REPRESENT OFFSETS FOR ROUTINE ADDRESSES IN THE 
TABLE NAMED REENTS8S. ONLY THE MOST COMMONLY USED VALUES 
ARE INCLUDED HERE; THE USERS MANUAL HAS A COMPLETE LIST. 
IF OFFSET ODO» THEN TRUE OFFSET==(OFFSET+1) 
05 INTSORTC PIC 99 COMP VALUE 99. 


Figure 17. Echo Message Example; Reentrant COBOL 
(Page 1 of 6) 
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DWS=-SNAP COMP VALUE 
MAPFREE COmP VYALUE 
FECMKLSE COMP YALUE 
FESEND : COMP VALUE 
FESENOC C COMP VALUE 
DYN=ALLOCATE COMP VALUE 
DYN=ACCESS COMP VALUE 
MAPURGE COMP VALUE 
MAPCLR COMP VALUE 
MAPEND COMP VALUE 
MAPOQUT COMP VALUE 
MAPIN COMP VALUE 
INTUNSTO COMP VALUE 
INTSTORE COMP VALUE 
INTFETCH COMP VALUE 
FECMFDBK COMP VALUE 
FECMUDQ COMP VALUE 
DQ—wRITEX COMP VALUE 
DO=-READX COMP VALUE 
DQ—wRITE COMP VALUE 
DQ—READ COMP VALUE 
DQ=—CLOSE COMP VALUE 
DQ=—QPEN COMP VALUE 
0Q-8VILD COMP VALUE 
FH=SELECT COMP VALUE 
FH=RELEASE ~ COMP VALUE 
FH=READ COMP VALUE 
FH-WRITE COMP VALUE 
FH=GET COMP YALUE 
FH=PUT COMP VALUE 
FH@RELEX COMP VALUE 
FH=FEOYV COMP VALUE 
COBPUT COMP VALUE 
ASGCOL COMP VALUE 
COBSTORF COMP VALUE 
CONVERSE COMP VALUE 
OBINT COMP VALUE 
LOGPuUT COMP VALUE 
PAGE=FILE COMP VALUE 
FH=GETY COMP VALUE 
FH=PUTY 999 COMP VALUE 
CODES 104 ANO UP INDICATE USER ADDITIONS TO THE TABLE 


Cc 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
Cc 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
Cc 


000150 01 aAUTHORS-NAME. 

000160 94 QUT<-4AAE PIC X(10) VALUE ' T.ELGUERA‘. 
000170 04 QUT=ASG REDEFINES OUT<-NAME. , 
000180 06 NAME-CHAR PIC X OCCURS 10 TIMES. 


Figure 17. Echo Message Example; Reentrant COBOL 
(Page 2 of 6) 
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00097 000190 LINKAGE SECTION. 

00098 000200 Ol I INPUT=$AMESSAGE COPY ICOMINMG. 

00099 OL INPUT=RESSAGE. 

00100 u4 MESSG-HOR. 

00101 ASGH=-LENGTH PIC $9999 COMP. 
00102 NSGH-QPR PIC X. 
00103 MSGH=RSCH PIC X. 
00104 HSGH=-RSC PIC 

00105 ASGH=SSC PIC 

00106 AS GH-AMN PIC 

00107 MSGH-DATE. 

00108 08 MSGH-YR PIC 

00109 08 MSGH=PERLOD PIC 

00110 08 MSSGH-JULIAN-DAY PIC 

oolll ASGH“TIME. 

00112 08 MSGH—HH PIC 

00113 08 MSGH-MA PIC 

00114 08 ASGH=-SS PIC 

00115 0&6 MSGH-Th PIC 

00116 ASGH—TID. 

00117 08 MSGH-TI1 PIC 

00118 08 MmSGreT12=3 PIC 

00119 OS MSGH=$T14=5 PIC 

00120 MSGH=-FLGS ‘PIC 

00121 ASGH=P1D PIC 

00122 MSGH—PIDX REDEFINES MSGH—P ID. 
00123 0&6 FILLER PIC X(2). 
00124 08 ASGH-BAN PTC X(3).- 
00125 SSGH—SSCH PIC Xe 
00126 BSGH=—ADOR PIC X(3). 
00127 MSGH—ADRX REDEFINES MSGH—ADOR. 
00128 0&8 ASGH-USR PIC Xe 
00129 08 FILLER PIC X(2).- 
00130 AS GH=-LOG PIC Xe 
00131 ASGH-8LK PIC X. 
00132 AS GH-V AI PIC X. 


AAAANAAANANAQANAANANANANANAANANANAANAAARAANAAA 


00134 000210 04 INPUT—MESSAGE-TEXT PIC X OCCURS 500 TIMES. 
00135 000220 01 SYSTEM—PARAMETER=TABLE PIC Xe 

00136 000230 O01 SUBSYSTEM-CONTROL=-TABLE PIC Xe 

00137 000240 OL INTERCIMM-RET—CODE PIC $9(7) COMPUTATIONAL. 
00138 000250 OL DYNAMIC-wORK=S PACE COPY ICOMOWS. 


Ol OYNAMIC-wORK=-SPACE. . 
02 OQUTPUT-MESSAGE. 
04 OMESSG-HOR. 
OMS GH—LENGTH 
OMSGH-QPR 
OMSGH-RSCH 
OMSGH=RSC 
UMSGH=S SC 
ONS Gn-4 AN 
OMSGH~UATE e 


00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 


AAAAMHANAAAN 


Figure 17. Echo Message Example; Reentrant COBOL 
(Page 3 of 6) 
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08 UOMSGH—YR PIC 

08 UMSGn-PERKIOD PIC 

08 UMSGH—JULIAN=DAY PIC 

08 OMSGH—HH PIC 

08 UASGH—"M PIC 

08 UOASGH=SS PIC 

08 QMSGH-TH PIC 
OMSGH=T 10. 

08 OMSGH-TI1L PIC 

08 OMSGH-TI2=—3 PIC 

08 OMSGH-TI14—5 PIC 
OMSGH—FLGS PIC 
OMSGH=—? ID PIC 
OMSGH=PIDX REDEFINES OMSGH—P ID. 
08 FILLER PIC X(2)- 
08 OQMSGH—6MN PIC X(3). 
OMSGH—SSCH PIC Xe 
OMSGH=ADDR PIC xX(3). 
UMSGH=-ADRX REDEFINES UMSGH-ADDR. 
08 OMSGH—USR PIC Xe 

08 FILLER PIC X (2). 
OMSGH-LOG PIC Xe 
OMSGH-6LK PIC Xe 
OMSGH-VAT PIC Xe 


C 
C 
Cc 
Cc 
Cc 
C 
Cc 
Cc 
C 
Cc 
Cc 
C 
C 
Cc 
C 
C 
Cc 
Cc 
C 
C 
Cc 
Cc 
C 
Cc 
Cc 


000260 04 QUTPUT=MESSAGE-TEXT PIC xX OCCURS 510 TIMES. 
000270 O02 FESENOC=RETURN—CODE PIC 99. 

000280 88 QUEUVED VALUE ZERO. 

000290 02 I PIC $9(4) CUMPUTATIONAL. 
000300 Q2 J PIC $9(3) CUMPUTATIONAL. 


Figure 17. Echo Message Example; Reentrant COBOL 
(Page 4 of 6) 
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000310 PRUCEDURE DIVISTON USING 


0900320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
0005 20 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 


Figure 17. 


INPUT=MESSAGE 
SYSTEM—P AKRAMETER=TABLE 
SUBSYSTEM—CONTROL=TABLE 
INTERCOMM"RET=-CODE 
DYNAMIC=wWOURK=SPACE. 

MOVE MESSG-HOR TO UMESSG=<HOR. 

MOVE OMSGH=RSCH TO OMSGH=SSCH. 

MOVE OMSGH=RSC TO OMSGHSSC. 

MOVE LOW=VALUES TO OMSGHRSCHe 

MOVE LOW-YALUES TO OMSGH=RSC. 

MOVE HEX=57 TO OmMSGH-vNI. 

PERFORM MOVE—A=CHARACTER VARYING I FROM #1 BY +1 

UNTIL I IS EQUAL TO MSGH=LENGTH — 42. 

PERFORM NAME=MUVE VARYING J FRUM +1 BY #1 UNTIL J D 

MOVE HEX=37 TO OUTPUT-MESSAGE-TEXT (1). 

COMPUTE OMSGHLENGTH = [ + 42, 

CALL ‘COBREENT® USING 
FESENDC 
QUTPUT=MESSAGE 
FESENDC-RETURN=CODE. 

IF NOT QUEUED 

MOVE FESENDC-RETURN=CODE TO INTERCOMM-RET~-COOE 
ELSE 
MOVE ZEROS TO INTERCOMM-RET=CODE. 
GOBACK« 


SUBROUTINE SECTION. 
MOVE~A-CHARACTER. 


MOVE INPUT=MESSAGE=TEXT (I) TO OUTPUT=MESSAGE~TEXT (1). 


NAME-MOVE r 


MOVE NAME=CHAR (J) TO OGUTPUT=MESSAGE=TEXT (1). 
COMPUTE I = I + le 


Echo Message Example; Reentrant COBOL 
(Page 5 of 6) 


44.2 


Coding an Intercomm 
Subsystem in COBOL 


Chapter 3 


d¥09 
dW0) 


WN—dSIC 
dSIQ 
dSIa 
dS10 
dS1Q 
dSIQ 
dSI0 

dnoa9 
dSI10 
dSia 
dSI0 
dS10 
dNnou9 
dS1a 
dS1I0 

WN—-dSIQ 
dSI0 
dSIQ 

dnows 

WN=-dSIO 

WN-dSI0 

WN=—dSIQ 

WN-dSI0 

dno 

WN-dSIQ 
dSIG 

WN-dSIa 

dno3a9 
dS10 
dS1Q 
dSI0 
dSIG 
dSIQ 
dwWOo) 
dnnyus 
dnodow 
dnow 


al deC 


dS1Q 
dS1qQ 
dS10 
dS1Q 
dS 
dSIQ 
dS1Q 
dS1d 
dNOwd 


£20-22WNOQ 
9T0-2Z=WNO 
000—ZeWNO 
€L¥—-9aWNG 
T4¥—-9aWNG 
224-9 eWNO 
004-9=WNO 
TRE~- 9 eWNO 
L9E-9=aWNO 
S*E—-9aWNO 
2Z2E€-9=WNO 
20€-9=WNG 
282-9aWNO 
092-9=WNO 
942—9=WNO 
022-9=WNG 
TO2-9=WNO 
TET—9=WNG 
09T—9=WNO 
6ET-9eWNO 
OZ2T—9=WNO 
860-9=WUNQ 
080-9=WNO 
6S0-9=WNQ 
TYO-9=2WNG 
€20-9 =WNO 
000-9eWNG 
22 4—G=eWNgd 
0S$4%—SeWNG 
624—-S=WNO 
904—-S=WNO 
¥BE—S=WNO 
S9E—S=WNO 
EYE-S=WNO 
€Z2E€—-S=WNO 
TOE—SaWNO 
6L2~G=WNO 
9S$2-S=WNQ 
b =-GaWNQ 
B6T—SeWNG 
L9OT—SeWNG 
vET~-S=aWNO 
Z20T-SaWNO 
TLO—-S2WNO 
0S0-S=WNO 
Z2£0-S=#WNO 
¥TO-GewWNO 
000—-S=WNQ 
TRo—GeaWNG 
6594-4 aWNG 


322 
V22 


a22 
vzo 
620 
820 
220 
$70 
¥20 
¥2Z0 
¥z0 
EZO0 
020 
3T0 
3TO 
JTO 
ITO 
vto 
eto 
Z1T0 
LTO 
STO 
ETO 
TTO 
J00 
490 
3900 
§00 
600 
600 
900 
S00 
¥00 
€00 
200 
000 
000 


UU 


00 
000 
000 
vz0 
620 
820 
220 
$20 
420 
¥70 


L=178 
e176 


22116 
223778 
2=778 
22718 
221718 
221168 
22716 
227118 
22116 
22116 
£= 7718 
2£=171€ 
2=1778 
2£=178 
2=116 
2=1178 
Lave 
4-776 
L178 
2-118 
z=178 
227118 
2=778 
Z£=7118 
£21776 
22176 
L=178 
u=778 
ze19 
L=316 
£-7718 
“e174 
ze718 
Le178 
227178 
Cami: 


ga TIE 
Se1168 
ea 178 
oe | 
eee 
Em VIE 
€=2178 
E=116 
Ea TIE 
Ea TIE 


aAV 
IE 


*S56TS92 AVN 


J 


r 
I 

G3an3ann 
FOOI“NUNLSY—-IONIAS 34 

LX¥3L—-39VSS 3e-1INd1LND 

TwWA-H#9 SwO 

wW1e-H9OSwo 

S901-HOSWO 

ys 

ysSn-vOSWC 

XUGV—HISWO 

YOQV-HOSWO 

HISS-—HOSHO 

NWE—-HOSWO 

wyaT1I4 

XOId-HOSWO 

QI d-HOSWO 

$9 13—-HOSWO 

S—-4IT1-—HOSWO 

E-ZIT L-HOSWO 

TILI-HOSHO 

OIL-HOSWO 

HLi-HOSWO 

SS-H9SwO 

WW—HO SWO 

$ HH-HOSWO 

JWI L-HOSWOo 

AVO-NVIINF—HOSWO 

OOIX¥3s d-H9SWO 

YA-HOSWO 

31VO-H9OSWO 

NWWeLS CWwd 

ISS—-YU9S KO 

IS ¥—HOSWO 

HIS y—-HOSWO 
UdO—-HOSWO 
HIONZI-HOSWD 
yOH-O9SS3awe 

PAS We iNd iINd 
SIVdIS— NYO KP—JDIWVNAD 
300 La*-WWCOUSIN 
L-VOWLNOIANWSLSASBNS 
VL~USLIWVUT d-wILSAS 
L¥3ZL-39VSS3IW-LNANI 
I #A—#9 SW 

YTE—HO SW 

507-HOSW 

ys TVS 

USn—HoOSwW 

XUQv—HOSW 


GS°22°sT 


120-—2=WNO 
9TO—L=WNO 
000—Z2=WNO 
EL>-9=WNO 
Tyb—GQeaWNG 
224-GeaWNO 
00 5-98 WNO 
TOE-S9=WNG 
L9E—-ST=aWNG 
G¥E—9=aWNO 
Z2E~9aWNO 
ZO0€—9eWNO 
282-9eaWNO 
092-9=WNO 
94 7—-9GaWNO 
O22-9=aWNO 
TO 2—S=WNO 
TS8T—928#WNO 
09T-9=WNO 
6€ T-SaWNO 
O2T—9=WNO 
8@60-9eWNO 
080—-9=WNO 
6S0-9=WNO 
T+O0-S9ewWNC 
€20-92WN0 
000-Q9=WNO 
2h 5=GeWNC 
0S %—S=WNO 
62 +-GeWwnd 
90 ¥—-S=WNOG 
bEE—S=aWNO 
69€—SeWNO 
EVE—G=WNO 
EZE—SaWNO 
TOE-SHWNO 
62£2—-SeWng 
95 7-GaHNG 
622—-GSaWNG 


29T-GeWNQ 
vET—SaWNQ 
ZOT—SaWNG 
TLO—S=WNO 
050-G=WNOQ 
ZEC—GaWNG 
9TO-GeWNQ 
000-S=WNO 
TA4-F=aWNO 
65 b6—baWNG 


9S WOHIS 


= 
ce) 
J 
Wj 
>> 
“” 
rQ 
3 
w 
ce) 
G 
, 
2) * 
‘1 O 
| 
oma) 
OW 
dE 
4 
da 4 
oO 
om 
uy 
‘rd > 
UO 
ow 
Pu 
“” @ 
G 
oO 
13) 
eo © 
a Oo 
a H 
! 
m @ 
HM 
Oo @w 
= & 
Io 
0 H 
‘rd 
EA 
w 
ae 
fx] 
Aw 
W oo 
0 
b> 
— 
3 
QO A 
Eo 
od & 
“a 
Yo oO 
GOH 
‘rd 1 
H 
© oO 
AYO 
x 


Echo Message Example; Reentrant COBOL 


om 
wo 
uy 
Oo 
oO 
rT) 
oD 
wo 
Ay 
— 
N 
i 
3) 
4 
3 
60 
f 
fx, 


44,3 


~~ 


Chapter 3 


44.4 


Coding an Intercomm 
Subsystem in COBOL 


Chapter 3 Coding an Intercomm 
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© 3.4 REENTRANT CODING CONVENTIONS 


When coding a reentrant COBOL subsystem (or subroutine), care 
must be taken to observe the following conventions: 


1. Never use the ALTER verb. 
2. Never modify the WORKING-STORAGE SECTION. 


3. Define in the Linkage Section all areas modifiable during 
program execution as items subordinate to the fifth 01 
(Dynamic-Work-Space) entry. 


4. Call all system service routines, data base service routines, 
and user subroutines through the COBREENT interface program 
in order to maintain reentrancy and the multithreading 
environment. 


5. A call to COBREENT within a PERFORM range, although 
permissible, must be treated as a branch (GO TO) out of the 
PERFORM range. This restriction is easily met if all PERFORM 
ranges are accessed only by PERFORM statements. Never GO TO 
a performed paragraph. 


6. Verify that the amount of dynamic storage defined for the 
subsystem in the Subsystem Control Table is an exact multiple 
of 8 and is the same or greater than the number of characters 

baal shown in the DMAP and defined for the fifth 01 (DWS) entry in 
the Linkage Section (see Figure 17). 


7. FDs cannot be used, nor any file access verbs (OPEN, READ, 
etc.). 


8. Do not use the reserved COBOL data name RETURN-CODE for any 
Intercomm return codes. (That data name refers to the 
contents of general register 15, which is not used for this 
purpose by the interface programs. ) 


9. Do not forget to code GOBACK to exit to Intercomm; otherwise 
a User 519 abend will result. 


10. Ensure numeric fields are not zero before executing a DIVIDE 
or COMPUTE. 


3.4.1 XA/ESA Extended Storage Loading Requirements (Release 10 only) 
COBOL subsystems and subroutines using Intercomm reentrant coding 


conventions are eligible for loading above the 16M line if these 
recommendations are followed: 


® The module should be linkedited with the AMODE=31 , RMODE=ANY 
( and REUS (RENT if VS COBOL II) parameters (see Appendix A) 
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e For subsystems, the LOADNAM, LANG=RCOB, BLDL=YES (default), 
and REUSE=YES (default) parameters are required on the 
SYCTTBL macro (a loaded subsystem remains in extended storage 
except when necessary to delete it after a program check, 
time-out, or by user system control command request) 


e For subroutines, the LNAME, TYPE=COBOL, BLDIL=YES (default) 
and USAGE=REENT parameters are required on the SUBMODS macro 
defining the subroutine to Intercomm (see also Section 9.7) 


e Ensure that the Intercomm interface routines PREPROG, 
COBREENT and DYNLLOAD (for loaded subroutines) were 
reassembled under XA or ESA (with the XA global on in the 
Intercomm global table SETGLOBE if at SM level 2240 or lower) 


e All parameters (except the ICOMSBS code) passed via calls to 
COBREENT must be in 24-Amode storage (DWS). Constants (file 
names, map names, etc.) must be moved to the DWS before the 
call, except if VS COBOL II (see below). 


3.4.2 Dynamic Working Storage (DWS) Protection Option 


Destruction of Intercomm storage pool areas can result if the 
Dynamic Working Storage (DWS) acquired for a COBOL subsystem or 
subroutine is too small. This user option causes Intercomm to allocate 
extra space at the end of the DWS for each reentrant program. When the 
subsystem or subroutine calls COBREENT, this space is checked to see if 
it has been modified. If so, then the DWS is too small and the thread 
is terminated with a program check (Snap 126). An error message is 
sent to the terminal operator, and the Intercomm control terminal. 


This protection option applies only to reentrant COBOL subsystems 
with an equal value of GET and FREE specified on the SYCTTBL macro 
instruction, and to all reentrant COBOL subroutines with the GET 
parameter specified on the SUBMODS macro. This option cannot detect 
the possibility of storage destruction beyond the extra DWS area. 
Because of the processing overhead required for this feature, it should 
be used only until subsystems are thoroughly tested. 


The DWS protection option is requested system-wide via the DWSCHK 
parameter on the SPALIST macro at system generation time. The option 
may also be dynamically controlled system-wide by the Intercomm STRT 
and STOP system control commands which control activation and 
deactivation of various system control and debugging features. In 
addition under Release 10, for individual subsystems, the option may be 
requested via the DWSCHK parameter on the SYCTTBL macro describing the 
subsystem. If YES is coded, and the option is active system-wide, DWS 
checking will be performed. If NO is coded, then it will not be 
performed even though active for the system. Conversely, if not active 
for the system, SYCTTBL coding is ignored. 
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( 3.4.3 VS COBOL II Program Conversion and Support (Release 10 only) 
® Compiler options required for Intercomm programs are: 
RENT, RES and NODYNAM 
DATA(24) 
NOTEST and NOFDUMP 
LIB 


The following compiler options are recommended: 


APOST (single quote for literals and CALLs) 

TRUNC (BIN) 

COMPILE (if not the default) 

NONAME and NOTERM 

SSRANGE (if supported for Intercomm COBOL II installation) 
LIST and NOOFFSET 


All other compiler options are dependent on site standards or 
programmer specification, and are explained in detail in IBM’s VS 


COBOL II Application Programming Guide For MVS. See the sample 
Compile JCL in Appendix A for compiler parms specification. 


Note that use of the OPTIMIZE option may enhance performance, but 
will increase the size of the COBOL load module as all the 
PERFORMed paragraph code is generated inline in the object 
(assembler) code immediately following the PERFORM statement. If 

\ a paragraph is PERFORMed multiple times, then multiple copies of 
the paragraph code are generated in the object code. While this 
may not affect seldom executed loadable programs (or programs 
loaded above the 16M line), it will greatly increase the size of 
the Intercomm load module for resident subsystems and 
subroutines. 


e Coding Requirements and Options: 


GOBACK (not STOP RUN) must be used to return to Intercomm. 


Dynamic Working Storage (GET parameter on SYCTTBL or SUBMODS) 
must be a minimum of 8 bytes. Under VS COBOL II, variable 
(modifiable) fields may be in the ‘'WORKING-STORAGE SECTION’. 
They (and VALUE fields) do not have to be copied from Working- 
Storage to the DWS area, even if the program is loaded above the 
16M line. Due to the DATA(24) compiler option requirement, no 
coding changes are needed to have a reentrant program dynamically 
loaded above the 16M line. If loadable above the line, storage 
will be saved in the Intercomm Address Space, and the only 
requirement is the added AMODE=31,RMODE=ANY linkedit parameters 
(see sample Compile and Link JCL in Appendix A). VS COBOL II 
subroutines must also have a DWS of at least 8 bytes, and should 
define all variable fields in that DWS if the subroutine may be 
called more than once within one message processing thread 
Crun-unit). If subroutines define variable fields in the 
C "WORKING-STORAGE SECTION’, they need code to clear those fields 
(to low-values) on each entry to the subroutine if it may be 
called more than once within a single subsystem processing thread 
(run unit). 
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‘COBREENT’ must be called to interface to all Intercomm service 
routines and user’. subroutines. The REENTSBS code is still 
required as the first parameter in the passed parameter list. 


CALL identifier (dynamic call) is not supported. 


Nested COPY (below the 01 level) may be used: change the $$COPY 
for MMU symbolic maps to a standard COPY statement. The COPRE 
pre-compile step is no longer needed for Intercomm COPY. 


Non-reentrant (do not use a DWS and do not call COBREENT) 
programs may not be converted to VS COBOL II (unless first 
recoded). Note that single-threading (serial execution) may be 
forced via coding MNCL=1 on the SYCTTBL macro. 


VS COBOL II user subroutines may not be called by non-COBOL II 
subsystems (or subroutines), even if called via COBREENT by a 
reentrant OS/ANS COBOL program. That is, convert subsystems to 
VS COBOL II before converting any reentrant subroutines called by 
those subsystems. 


Reduce the number of WORKING-STORAGE fields which have VALUE 
definitions by converting them to literals in the program code 
(for MOVE statements, for example). The literal table is not 
copied out to dynamic storage acquired by VS COBOL II. 
Conversion does not apply to values in COPY members such as 
ICOMSBS and COBLOGCH. 


If DWS fields are moved to WORKING-STORAGE, note that every 01 
level definition is forced to the next doubleword boundary, even 
if the previous field is less than 8 bytes. Therefore, group 
areas together by field size and alignment under 01 level 
group-names, such as FILE-AREAS, MMU-AREAS, DATA-BASE-AREAS, 
etc. See sample program in Chapter 13. Note that fields 
subordinate to 01 level names may be passed as parameters on 
subroutine calls. 


77 level fields always start on a doubleword boundary, even if 
the previous field is less than 8 bytes, or not a multiple of 8 
in length. Therefore, define such fields which are not 8-byte 
multiples in length under an appropriate 01 level group (see 
above). 


Prefix programs/stubs/roots may not be linked with VS COBOL II 
programs as the first routine to receive control. See Operating 
Reference Manual for user exits (PREPROGI/E) to use for modifying 
the subsystem parameter list/areas. 


SORT, MERGE and File I/O verbs are not supported. 


READY TRACE, RESET TRACE and SERVICE RELOAD statements must be 
deleted (not supported by VS COBOL II). 


Only the IBM VS COBOL II (Release 3.0 and higher) compiler is 
supported. Installation and linkedit of the VS COBOL II 
environment is described in other Intercomm documentation. See 
also Chapter 13. 
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© Subsystems may be resident, in an EXGRP or OVERLAY A, or 
dynamically loadable (above the 16M line if possible - COBREENT 
provides mode conversion). They may not be in OVERLAY B, C, or D 
(linked with MONOVLY). Subsystems must be coded and linked as 
reentrant (RENT parm used on linkedit with NOCALL and LET) and if 
loadable, NOCALL suppresses linking in called routines (COBREENT 
and IGZEBST, which are in the Intercomm lLinkedit). The external 
references to entry points in the Intercomm load module will be 
resolved by dynamic linkedit. No programs may directly call any 
user subroutines which call other routines. All user subroutines 
which are not single-threaded (self-contained) and/or are not in 
the Intercomm load module must be called via COBREENT. If the 
subsystem is loaded above the 16M line, then all user subroutines 
not linked with the subsystem must be called via COBREENT (for 
mode conversion). On the SYCTTBL macro, LANG=RCOB and REUSE=YES 
are required. 


e Subroutines called via COBREENT must be coded and defined as 
reentrant, and may be resident or loadable (above or below the 16M 
line) and must be defined in the REENTSBS table. See Chapter 9 on 
defining a DWS area for a COBOL subroutine. On the SUBMODS macro, 
TYPE=COBOL and USAGE=REENT are required. 


e All Intercomm Facilities and features available at the user site 
May be accessed as currently documented, except: 


CONVERSE Facility not supported. 

DWS checking not applicable to fields moved to Working-Storage. 

DWSSNAP will not snap fields/areas defined in Working-Storage, 
only those in the DWS area. 


@ Snap facilities have been enhanced to snap VS COBOL II applicable 
storage for subsystem threads in indicative dumps, and to provide 
interface debugging snaps at critical times (see Messages and 
Codes). Note that in 118 (timeout) and 126 (program check) snaps, 
the save area chain contains an extra save area because the TGT 
Save area is not removed from the chain as for OS/ANS COBOL, when 
a reentrant COBOL program calls COBREENT. Under the MVS SAVE AREA 
TRACE in the snap, there may be two consecutive listings for calls 
to COBREENT: the first is for the TGT save area, and the second is 
for the copy of the TGT save area in the DWS prefix. Only the 
second appears in OS/ANS COBOL snaps. 


e A new snap 123 (see Messages and Codes) has been added which is 
produced (with Intercomm message MPOO3I) when a recoverable U10nn 
abend is caused by a VS COBOL II run time subroutine (such as an 
SSRANGE checking, invalid sign, truncation, or recursive call 
abend). The thread is cancelled and the subsystem is flagged 
inactive (NO SCHED). That is, no new messages are processed until 
the subsystem is corrected and reloaded via the LOAD command, or 
the FTUN/SSUP commands are used to reactivate the subsystem (set 
SCHED to YES). An indicative dump (similar to a snap 126) is 
produced if indicative dumps are active for the region and the 


subsystem. See IBM’s VS COBOL II Application Programming 
Debugging for abend and error message (IGZOnnI) explanation. 
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ee RESTARTED MESSAGES 


After an Intercomm system failure (abend or operator cancel) or 
an operating system failure (requiring a re-IPL of the CPU), Intercomm 
may be brought up in Restart Mode which permits reprocessing of 
messages in progress at the time of failure. Additionally, previously 
cancelled messages (see Figure 14), and unprocessed messages (received 
and queued, but not started) will be requeued for processing after 
system startup completes. This is accomplished by retrieving the 
original input messages from the log created in the previous Intercomm 
execution as described in the Operating Reference Manual, and may be 
coordinated with file or database record backout as described in the 


File Recovery Users Guide and DBMS Users Guide. 


Restarting of messages for a particular subsystem is controlled 
by the RESTART parameter of the SYCTTBL macro defining the subsystem in 


the SCT. A restarted input message (in progress at failure time) 
contains a log code of C’R’ or C’P’ (if data base update may be 
executed by the subsystem). All other input messages contain a log 
code of C’2’ (see Figure 11). A subsystem may need a different 


processing path for a restarted message and should be careful about 
creating an output response message which might confuse a terminal 
operator. 


3.6 DWSSNAP FACILITY (Release 10 only) 


The DWSSNAP Facility allows a COBOL subsystem to snap data areas 
from its own DWS; a COBOL subroutine can snap areas from its own DWS 
and/or areas from the calling subsystem’s DWS (data areas passed as 
parameters to the subroutine via Linkage). The output of the DWSSNAP 
request may be sent to SNAPDD (unlimited output) with snap ID=087 or 
may be returned to the inputting terminal (limit is one screen of 
output per snap, all subsequent pages of output are lost), or may be 
routed to another terminal, usually a printer (maximum output of 20 


pages). 


Parameter Contents 


ee a HER RS on te nm 


SNCWname The Snap Control Word, initialized to: ‘'PSPp’ 
(SNAP Option) for output to the system SNAPDD data 
set; ‘BDBB’ (DISPLAY Option) for output back to 
the inputting terminal, ‘'PP~~’ (PRINTER Option) 
for output to terminal named in next parm. 


term-id The Intercomm terminal name where output is to be 
routed. Only coded if PRINTER option used. 


parm-address-start |A data name in the subsystem’s/subroutine’s DWS 
which represents the start of the area to be 
snapped. 


parm-address-end A data name in the subsystem’s/subroutine’s DWS 
which represents the end (must be a higher address 
than start) of the area to be snapped. 
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Coding format: 


CALL 'COBREENT’ USING DWS-SNAP, SNCWname[, term-id] 
[, parm-address-start[, parm-address-end]]. 


The CALL to DWSSNAP can have up to 5 address pairs specified. 
However, no addresses need be coded if a snap of the entire DWS is 
desired. For example: 


CALL ’COBREENT’ USING DWS-SNAP, SNCWname. 
will cause the entire DWS to be snapped. 

CALL 'COBREENT’ USING DWS-SNAP, SNCWname, parm-address-start. 
will cause a snap of DWS from parm-address-start to the end of DWS. 


When using the DWSSNAP Facility to receive output at the 
inputting terminal, data areas to be snapped (all inclusive) cannot 
exceed 300 bytes (only one page of output will be sent to the inputting 
terminal; all additional output will be ignored/lost) when one pair of 
addresses is specified. If multiple address pairs are specified then 
the number of bytes that can be snapped is 300 minus 48 (times the 
number of address pairs desired). The storage snapped will be 
displayed at the terminal just as it would appear in a formatted dump; 
hexadecimal digits .(to the left) and the alphanumeric equivalent (to 
the right). 


When calling DWSSNAP from a COBOL subroutine, the addresses 
passed as parms must be within the subroutine’s DWS or that of the main 
COBOL subsystem’s DWS. To pass addresses in the DWS of the subsystem 
from a subroutine, they must be part of the Linkage Section of the 
subroutine. For example: 


LINKAGE SECTION. 
01 ODWS. 
02 SNCW PIC X(4). 


O01 RECORD-AREA. 
04 RECORD PIC X(166). 
04 RECORD-END PIC X. 


PROCEDURE DIVISION USING DWS, RECORD-AREA. 


MOVE '$DBB’ TO SNCW. 
CALL 'COBREENT’ USING DWS-SNAP, SNCW, RECORD, RECORD-END, DWS. 


will cause a snap, to the inputting terminal, of the 166-byte Record- 
Area passed to the subroutine by the subsystem via Linkage and the 
entire DWS of the subroutine, provided the output does not exceed one 
screen (everything in excess of one screen will be lost). RECORD-END 
is a dummy delimiter for displaying the passed record area. 
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4.1 CONCEPTS 


The Message Mapping Utilities (MMU) provide an interface between 
the application subsystem and terminal-dependent message processing 
logic for both input and output messages. MMU is invoked by calls to 
Intercomm service routines which perform mapping functions based upon 
user-specified tables (MAPs). Mapping includes justification, padding, 
and conversion of character data to/from arithmetic format. 


4.2 PROCESSING 


MMU input mapping produces fixed length data fields prefixed by a 
two-byte length and one-byte flag (indicates errors or omissions) 
unless the data fields are defined in a structured (named) segment 
(contiguous group of fields). In this case the three-byte prefix 
occurs for the entire segment, not for the individual fields. 


MMU output mapping operates upon data in the same format, but the 
flag byte becomes the field (or segment) attribute character. The 
mapped input text area and the unmapped output text area are called 
symbolic maps and are defined by special MMU $$COPY statements in the 
application program’s Dynamic-Work-Space for OS/ANS COBOL. Under VS 
COBOL II, use the standard COPY statement to copy symbolic maps into 


either the Working-Storage Section or into the DWS area. The 
application program references data fields and the associated prefix by 
symbolic name. For example, a customer name field (CUSTMER) of 


twenty-five characters would appear in an MMU symbolic definition as 
follows: 


06 CUSTMERL PIC 9(4) COMP. (length) 


06 CUSTMERT PIC X. (flag/attribute) 
06 CUSTMER PIC X(25). (data) 


Output message disposition is determined by options passed to 
MMU: the formatted message(s) may be returned to the subsystem; passed 
to FESEND for terminal queuing; passed to the Page Facility for CRT 
page browsing; or spooled to a DDQ for subsequent transmission as a 
series of report pages for a printer. 


A summary of message processing logic using MMU is shown in 
Figure 18. For a complete description of Message Mapping and its use 
by application subsystems, refer to the Intercomm Message Mapping 
Utilities. 


47 


Chapter 4 Using the Message Mapping Utility 


APPLICATION SERVICE 


LOGIC ROUTINES 


Input Initiali- 
Message zation | | 


Prepare 
MAPIN 

Calling 

Sequence 


| MAPIN 


Process 

Mapped Convert/Edit 
Input Input 
Message Message 


Prepare 
Output 

Message 
Data 


MAPOUT 


Map output 
Message Data 


Prepare 
MAPOUT 
Calling 


YES 


Prepare 
MAPEND 

Calling 
Sec 


RETURN Convert/Edit 
Output Output 


Message Message 


Figure 18. Message Processing Using MMU 
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Dok: CONCEPTS 


The Edit Utility may be used for input messages instead of MMU. 
It provides an interface to facilitate application program logic for 
message editing. When editing has been requested for a verb (via Front 
End Verb Table specification), the Intercomm PREPROG interface program 
calls the Edit Utility to produce edited message text from data fields 
entered by the terminal operator. 


The edited message becomes the input message passed to the 
subsysten. The Edit Control routine strips the following field 
definition characters during the course of editing: 


® The system separator character, as defined in the System 
Parameter List (SPA) 


@ 3270 CRT SBA sequences 

@ Dataspeed 40/1 and 2 terminal TAB characters 

® New Line characters 

® Carriage Return or combined Carriage Return/Line Feed 


® End of Text, End of Message, End of Block, or End of 
Transmission characters. 


All other device control characters not translated or otherwise 
suppressed by the Front End translation table for a particular device 
will be treated as text within a field. 


Editing is controlled by the Edit Control.Table (ECT - system 
table PMIVERBS), which contains all information about each message 
necessary to perform editing. An edit proceeds field by field based 
upon the user-specified ECT. Data fields may be edited by Intercomm or 


user-coded Edit Subroutines. For a complete description of the Edit 
Utility, its components and processing logic, refer to the Intercomm 
Utilities Users Guide. The sample program in Chapter 12 illustrates 


edited message processing. 


5.2 PROCESSING RESULTS 
The result of processing by EDIT is a message with a standard 


forty-two-byte message header and data fields in one of the following 
basic formats: 
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® Fixed Format 


Each edited field is of fixed length in a predefined sequence 
as follows: 


DATA DATA DATA 
Ll 2 N 


r Variable Format 


Each edited field may vary in length and position in the 
edited result. Each edited field is prefixed with a one-byte 
identification code, one-byte length, and possibly a one-byte 
occurrence number for fields defined as repetitive in the 
ECT: 


The Edit Utility considers a message successfully edited if there 
are no required fields (as specified by the Edit Control Table) in 
error or omitted. In the case of unsuccessful editing, Edit sends an 
error message to the originating terminal for each required field 
omitted or in error. If none of the required fields is omitted or in 
error, it remains the responsibility of the application program to 
analyze the edited result and perform recovery logic for any non- 
required fields in error. Figure 19 summarizes results of Edit 
processing for fields in error. 


Non-Required Field appears in edited result, Field does not 
Field Omitted filled with pad character appear in edited 
associated with Edit Subroutine, result. 

that is, spaces for alphanumeric 

field, zero for numeric field, or 

user-assigned. 


Non-Required Field appears in edited result Field does not 
Field in Error | filled with high-values (X’FF’). appear in edited 
result. 


Required Field | Message rejected by EDIT. Message rejected 
in Error or by EDIT. 
Omitted 


Figure 19. Edit Utility Processing of Fields Omitted or in Error 
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USING THE FILE HANDLER 


6.1 GENERAL CONCEPTS 


The Intercomm File Handler provides centralized control over all 
data file access in the on-line system. Requests for data file access 
are made in message processing subsystems by calling a File Handler 
service routine. 


The correspondence between the normal COBOL file access functions 
and the Intercomm File Handler service routines is shown in Figure 20. 


Prepare a file for access OPEN SELECT 


Access logical records sequentially READ , WRITE GET , PUT 
(QSAM , QISAM) GET, PUT GET, PUT 


Access logical records randomly READ , WRITE READ , WRITE 
(BISAM , BDAM) REWRITE WRITE 


Access physical blocks (BSAM, BDAM) READ , WRITE READ , WRITE 


Access VSAM files READ , START GETV 
WRITE , REWRITE PUTV 


Conclude file access CLOSE RELEASE 


Figure 20. Functions of File Handler Service Routines 


A data file on-line is identified to the File Handler by the 
existence of a data definition (DD) statement in the execution JCL. 
Files must be existing (DISP=OLD or SHR) except for sequential output 
data sets (DISP=NEW or MOD). 


DD statement requirements are illustrated in Figure 21. 
Additional requirements for VSAM are described in that section. 
Special processing definitions for particular files are defined to 
Intercomm at system startup by FAR (File Attribute Record) parameters. 
These include READONLY (prohibit output), OPEN (at startup), file 
duplexing, etc., and are described in the Operating Reference Manual. 
Additional parameters for file recovery (in case of program or system 
failure) are described in the File Recovery Users Guide. 
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//ddnamex* DD DSNAME=*%* 
, DISP=** 
, DCB=(DSORG=** 
, OPTCD=** For BSAM,BDAM,BISAM only. 
, RECFM= Must be specified by existing 
, BLKSITZE= data set label or explicitly 
in DD statement. 


*Name used to identify file in calls to SELECT. 
**Marks those parameters which must be explicitly specified on the DD 
Statement for each data set. 


Figure 21. DD Statement Parameters for the File Handler. 


In centralizing data file accesses, the File Handler provides one 
central set of control blocks for each file, thus reducing core 
requirements in individual message processing subsystems. There are no 
File Description entries in a COBOL-coded Intercomm program. 


Furthermore, all the facilities of the following Operating System 
Data Management functions are accessible to any subsystem: BDAM, BSAM, 
QSAM, BISAM, QISAM and VSAM. 


The File Handler also supports the following ISAM replacement 
access method available from another vendor: IAM. 


Data Base interfaces supported under Intercomm (IDMS, ADABAS, 
TOTAL, DL/I) are described in the DBMS Users Guide and the respective 
vendors’ manuals. 


6.1.1 Subsystem Processing 


In the on-line environment, several subsystems in concurrent 
execution may require access to the same data file. Rather than each 
subsystem issuing an OPEN and corresponding CLOSE for accessing a 
particular file, the File Handler will open a file the first time it is 
accessed (unless already opened at startup) and the file remains open 
for the duration of the on-line job in execution. A SELECT request 
simply establishes internal control blocks and the corresponding 
RELEASE request merely disconnects those internal control blocks. In 
each subsystem, following a SELECT for a particular file, access 
functions (READ, WRITE, GET, PUT, GETV, PUTV) may be called as many 
times as may be necessary for message processing logic. RELEASE must 
be called for each selected file prior to the return to the System 
Monitor. 


52 


4 


Chapter 6 Using the File Handler 


Each subsystem must provide space for two File Handler control 
areas. The information in these areas is unique for each message 
thread, so they must be defined in the Dynamic-Work-Space of reentrant 
programs, that is, defined in the Linkage Section as a subordinate item 
to the fifth entry parameter. To assure that they are fullword 
aligned, they should be defined following an eight-digit computational 
item, such as 02 FILLER PICTURE S9(8) COMP SYNC. Figure 22 shows how 
these control areas may be defined so as to force the proper alignment. 


FORCE-ALIGN PIC S9(8) COMP SYNC. 
FHCW REDEFINES FORCE-ALIGN. 
04 FH-RET1 PIC X. 

IOK VALUE 

IOERROR VALUE 

NOT-FOUND VALUE 

EOF VALUE 


XTO VALUE 

NO-DD VALUE 
FH-REQ1L PIC 
FH-REQ2 PIC 
FH-RET2 PIC 
PIC 
EXTDSCT2 PIC 


Figure 22. Defining File Handler Control Areas 


For each call to a File Handler service routine, the File Handler 
is passed the addresses of the two control areas. The first is an 
aligned 48-character area, called an External DSCT (EXTDSCT), which the 
File Handler uses to save control information for the subsystem 
processing thread, from the time that a given file is first SELECTed 
until it is finally RELEASEd. A unique EXTDSCT must be defined for 
each file concurrently accessed within the same processing thread. The 
other control field, called the File Handler Control Word (FHCW), is an 
aligned four-character field used for communication between the File 
Handler and the calling subsystem. Prior to each call to a service 
routine, the subsystem must clear the FHCW with spaces or initialize it 
with a predefined request code as described for each routine. A code 
of space (blank) is indicated in the detailed access descriptions by 
the lower case letter }. An example of such a request would be to 
establish Exclusive Control during a call to READ with intent to 
update. The File Handler will return a completion code in this word, 
after servicing a request, to communicate the status of the operation 
back to the subsysten. 
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6.2 CALLING SERVICE ROUTINES 


A COBOL subsystem may call the File Handler service routines 
through the Intercomm interface module COBREENT, and provide a 
routine-code name corresponding to the desired routine name, as 
described in the Intercomm COPY member ICOMSBS. The COBREENT prototype 
coding format is described in Chapter 3. 


The parameters for the File Handler service routines are 
described in Figure 23. The specific parameters passed to a given 
service routine depend on file requirements and the processing options 
of the particular service routine called. If the calling subsystem (or 
subroutine) might be loaded above the 16M line, then all parameters 
(except the ICOMSBS code) must be in the 24-Amode DWS (may be in 
Working-Storage for VS COBOL ITI). 


Parameter Content 


cnet a aC a Oe a er ee ee LY Tes 


EXTDSCTname A 48-character fullword-aligned area supplied by the 
subsystem for the File Handler’s use for each file 
SELECTed (see Figure 22) 
FHCWname The File Handler Control Word, in which the File 
Handler returns a completion code to the subsystem 
(see Figure 22) 
ddname An eight-character constant initialized with the name 
of the DD statement describing the data set to 
Intercomm (move to the DWS for calls from 31-Amode 
OS/ANS COBOL programs) 
Record-area The area for data read from, or to be written to, 
the file 


Key The key for file access (ISAM, Keyed BDAM, VSAM-KSDS) 


VSAM RBA Four-byte Relative Byte Address number (ESDS) 


VSAM RRN Four-byte Relative Record Number (RRDS) 


Block-ID Applies only to BDAM files: 


three-byte relative block number (RBN) 


three-byte relative track and record number (TTR) 


eight-byte actual address (MBBCCHHR) 


Figure 23. File Handler Service Routine Parameters 


The File Handler IAM support uses the Intercomm ISAM support routines. 
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On return from a File Handler service routine, the leftmost 
position of the FHCW area will contain a character code indicating the 
result of the operation, as shown in Figure 24. Additionally, for VSAM 
files, the rightmost position of the FHCW will contain a VSAM reason 
code. 


Code Meaning 
Normal Senpletion: 
Hardware I/O error 
Unusual condition (EOF, invalid key, etc.) 


Exclusive control time-out occurred 


Not used 


Invalid request (no DD statement, invalid 
parameter sequence, attempt to output to an input 
only file, etc.) 


Figure 24. Outline of File Handler Return Codes 


The application subsystem logic must then analyze this return 
code and take appropriate error recovery action. An error message 
might be created and queued for output to the terminal. Otherwise, the 
subsystem can return to the Subsystem Controller with a return code of 
12, indicating that the Subsystem Controller should call the USRCANC 
routine which in turn will send an error message to the terminal. 


6.2.1 Automatic Error Checking 


If the application subsystem logic is such that special error 
recovery processing is not required, the File Handler will perform 
error checking itself and data will be returned to the subsystem only 
if the return code is zero. Otherwise, the File Handler will force a 
program check, which causes cancelling of the input message and return 
to the Subsystem Controller, which calls the USRCANC routine. To 
request this function, place a character 'C’ in the first byte of the 
FHCW prior to calling a File Handler service routine. 
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6.3 SELECT, RELEASE FUNCTIONS 


SELECT must be called to initialize the subsystem’s EXTDSCT prior 
to any data access function performed by the File Handler. Prior to 
the call to SELECT, the subsystem’s EXTDSCT must be initialized to low 
values. 


RELEASE must be called to notify the File Handler that its 
pointers to the subsystem’s EXTDSCT should be cleared and that all data 
access to a particular file within one subsystem thread is complete. 
There must be a RELEASE corresponding to each SELECT of a file. 
Multiple SELECTs of the same file using the same EXTDSCT are not 
permitted without intervening RELEASEs, within the same processing 
thread. After each RELEASE, the EXTDSCT should be cleared to 
low-values before being reused. 


Coding format: 
CALL 'COBREENT’ USING FH-SELECT, EXTDSCTname, FHCWname, ddname. 
CALL ’'COBREENT’ USING FH-RELEASE, EXTDSCTname, FHCWname. 


Note: the ddname must be in the DWS if the calling program can be 
loaded above the 16M line (except if VS COBOL II). 


Figure 25 describes the return codes for SELECT and RELEASE. 


a ea va aT wean ree SoeraN we 


Return Codes 
(First Byte 
of FHCW) 
A reusable file (disk input) ready Successful 
for access; sequential access begins release 
at first record. 


A nonreusable file (SYSOUT, disk Not applicable 
output (DISP=NEW/MOD or DISP=SHR/OLD 
and FAR WRITEOVER parm specified, or 


a data set on tape) ready for access, 
begins after last record previously 
accessed. Or empty/reused VSAM ESDS 
file ready for output only. 


No ddname found in File Handler File not 
internal control table. (No DD selected. 
statement in JCL or the file has 

been "locked" by the FILE control 

command. ) 


Figure 25. File Handler SELECT/RELEASE Return Codes 
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6.3.1 Closing a File 


Occasionally, it is necessary to close a file, perhaps because it 
is to be updated by a batch job. A special form of RELEASE requests 
the File Handler to close a file. However, unless some external 
control is taken to assure that no other programs have selected the 
file, a close request could cause other transactions for the file to 


fail. Also, if new transactions are attempting to access the closed 
file, the File Handler will open it again and unpredictable results may 
occur. Intercomm provides the FILE system control command for 


systemwide file access control. 
To close a file from an application program: 


@ If the file has been previously selected: first release the 
EXTDSCT by calling RELEASE referencing the EXTDSCTname used 
when the file was selected (as described above), then 


@e Move a character C to the second byte of the FHCW (’PCHP') 
and call RELEASE supplying the ddname of the file to be 
closed; use the following coding format: 


CALL ’COBREENT’ USING FH-RELEASE, ddname, FHCWname. 


Note: the ddname must be in the DWS if the calling program can be 
loaded above the 16M line (except if VS COBOL II). 


6.4 EXCLUSIVE CONTROL FOR NON-VSAM FILES 


In a multithread environment with only inquiry applications, the 
fact that several message processing programs may concurrently retrieve 
data from the same file or files presents no operational problems. 
However, when more than one message processing program attempts to 
update or add records to a file, data integrity problems can occur. 
Figure 26 illustrates the problems of concurrent updates; program B’s 
update nullifies that of program A. Exclusive control implies that 
while one program is operating on a record, that is, the time between a 
READ and a WRITE, all other requests to read or write that particular 
record will be delayed. A program requesting a record held during 
exclusive control by another program is not notified of this delay, but 
rather stops execution in the File Handler until exclusive control is 
either removed or expires so that the File Handler can then proceed 
with the requested function. Exclusive control, when required, must be 
requested separately with each call to File Handler READ or GET 
functions. Exclusive control for basic access methods operates at the 
block or record level. Exclusive control for queued access methods 
Operates at the data set level; thus applications should be designed to 
avoid GET for update whenever feasible. 


To obtain exclusive control over the entire data set in a QISAM 
file or over a physical block in a BDAM or BISAM file, move 'PX}' to 
the File Handler Control Word prior to calling GET or READ. Exclusive 
control does not apply to physical sequential (QSAM/BSAM) files. 
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Exclusive control will be released by: 


e A call to WRITE or PUT referencing the same EXTDSCTname, that 
is, the update of the previously acquired record, and no key 
or block-id specified. 


e A call to WRITE referencing the same EXTDSCTname and a key 
and/or block-id is specified. 


e A call to READ or GET referencing the same EXTDSCTname 
(retrieving a new record from the file). 


e A call to RELEASE referencing the same EXTDSCTname. 


e An elapsed time after the call to READ with Exclusive Control 
greater than the exclusive control time-out value of the File 
Handler. This is set at two minutes for any given record and 
a maximum of ten minutes for consecutive exclusive accesses 
to a QISAM file. 


NOTE: A return code of 3 after a call to WRITE or PUT to 
update a record held in exclusive control indicates 
that exclusive control timed out: the WRITE or PUT 
did not take place. The program should re-READ or 
re-GET the same record with exclusive control and 
WRITE or PUT again, after reprocessing the record. 


e A call to RELEX, if the program logic is such that the record 
does not need to be updated, or additional and time-consuming 
activity (accessing other files) is required before resuming 
access to the file. Such a program could call RELEX to 
release exclusive control without actually RELEASEing the 
file until later in the program logic. 


6.4.1 Release Exclusive Control--RELEX 


RELEX is called to release Intercomm or VSAM exclusive control 
without having to read, update, time-out, or RELEASE the file. 


Coding format: 


CALL 'COBREENT’ USING FH-RELEX, EXTDSCTname, FHCWname. 


Return Code Meaning 


Exclusive control released 


File not selected or invalid function 


Figure 27. File Handler Release Exclusive Control (RELEX) 
Return Codes 
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6.5 SEQUENTIAL ACCESS METHOD (SAM) PROCESSING 


6.5.1 File Handler Service Routines--GET, PUT SAM); READ, WRITE 


(BSAM) 
GET is called to access the next sequential logical record from a 
file. PUT is called to write the next sequential logical record to a 
file. READ is called to access the next sequential physical block. 


WRITE is called to write the next sequential physical block. If PUT or 
WRITE is called referencing a disk data set, the record last accessed 
by a GET or READ will be updated, however, the length may not be 
changed. GET processing is subtasked by the File Handler in order to 
provide multithreading facilities; for further details, see the 


Operating Reference Manual. 
Coding format: 


CALL 'COBREENT’ USING FH-GET, EXTDSCTname, FHCWname, 
record-area [,record-length]. 


CALL 'COBREENT’ USING FH-READ, EXTDSCTname, FHCWname, 
record-area [,record-length]. 


CALL ’COBREENT’ USING FH-PUT, EXTDSCTname, FHCWname, 
record-area [,record-length]. 


CALL 'COBREENT’ USING FH-WRITE, EXTDSCTname, FHCWname, 
record-area [,record-length]. 


PUT, WRITE 


Successful 


I/O Error I/O Error 


End-of-file (Not applicable)* 


Not selected or invalid Not selected or invalid 

function; that is, using | function; that is, using a 

an output-only file tape input file or readonly 
file, or file not sequential. 


* For WRITE to a disk file: indicates End-of-file (write not done) 


Figure 28. File Handler Sequential Access Method Return Codes 
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6.5.2 Undefined Record Format and Record Length 


The record-length parameter is valid and required only when a 
file with an undefined record format (DCB=RECFM=U) is accessed. The 
record-length parameter points to a fullword containing the length of 
the output record before a PUT or WRITE operation, or to contain the 
length of the input record after a GET or READ operation. The second 
character of the File Handler Control Word must be set to U to utilize 
this feature. Do not code the DCB subparameter LRECL on the DD 
statement for the file in the Intercomm execution JCL. The BLKSIZE, 
RECFM and DSORG subparameters are required. 


6.5.3 Variable-Length Record Format and Record Length 


Variable-length records start with a Record Descriptor Word (RDW) 
which must be fullword aligned (PIC 9(8) COMP SYNC). The first two 
bytes of the word contain the record length in binary (+4 for the 
RDW); the second two bytes contain binary zeros (low values). The RDW 
is followed immediately by the record data, and must be recognized by 
the subsystem on input, and provided and initialized on output. 


For blocked files, if GET or PUT are used, the access method will 
perform the blocking and deblocking. If READ or WRITE are used, the 
application program must perform the deblocking (READ) and blocking 
(WRITE). In this case, the block must start with a Block Descriptor 
Word (BDW) of four bytes (aligned); the first two bytes contain, in 
binary, the total block length (including 4 for the BDW), and the 
second two bytes contain binary zeros (low values). For JCL details, 
and FAR options for defining and accessing the file, see the Operating 
Reference Manual. 
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6.6 INDEXED SEQUENTIAL ACCESS METHOD (ISAM) PROCESSING 


To use an ISAM file on-line under Intercomm, do not define three 
DD statements (INDEX/PRIME/OVERFLOW) for either the off-line creation 


of the ISAM data set, or the on-line execution DD statement. For 
creation, let the access method set up the index and overflow areas 
(use CYLOFL parameter on DD statement). For on-line execution, define 
only DISP=OLD and the data set name, volser and unit parameters if not 
catalogued, and the DCB parameter DSORG=IS. Optionally, the DCB 
parameter OPTCD may also be specified. See also the descriptions of 


FAR parameters applicable to ISAM data sets described in the Operating 
Reference Manual. 


6.6.1 File Handler Service Routines--GET, PUT ISAM): READ, WRITE 
(BISAM) 


GET is called to access the next sequential record, or to 
reposition (if a key is specified) and access the next sequential 
record. READ is called to retrieve a specific record at random. PUT 
is called to update the last record retrieved by a call to GET. WRITE 
is called to update the last record retrieved by a call to READ, or to 
add a record to the file (if a key is specified). For update, 
exclusive control may be requested; otherwise use blanks in the FHCW. 


Coding format: 


CALL ‘’COBREENT’ USING FH-GET, EXTDSCTname, FHCWname, record-area. 


CALL ’COBREENT’ USING FH-GET, EXTDSCTname, FHCWname, record-area, 
key. 


to update last GET: 


CALL ‘’COBREENT’ USING FH-PUT, EXTDSCTname, FHCWname, record-area. 


CALL ’COBREENT’ USING FH-READ, EXTDSCTname, FHCWname, record-area, 
key. 


CALL ‘’COBREENT’ USING FH-WRITE, EXTDSCTname, FHCWname, record-area. 
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to add a specific record: 


CALL ‘’COBREENT’ USING FH-WRITE, EXTDSCTname, FHCWname, record-area, 
key. 


Figure 29 describes return codes for ISAM access. 


QISAM 
Return 
Codes 


GET w/o Key GET w/Key PUT 


0 Next sequential Record with equal Record from 
record retrieved or next higher previous GET 
key retrieved updated 


1 I/O error I/O error I/O error 


2 End of File Key out of range N/A 


3 N/A N/A Exclusive Control 
Time -out 


9 File not selected File not selected File not selected 
or invalid function | or invalid function | or invalid function 


WRITE w/o Key WRITE w/Key READ 


Record from Record with Record with equal 
previous READ specified key key retrieved 
updated added 

I/O error I/O error I/O error 


Key already exists Key does not exist 
or no room to add 
new record 


Exclusive Control N/A N/A 
Time-out 
File not selected File not selected File not selected 


or invalid function | or invalid function / or invalid function 


Figure 29. File Handler ISAM Return Codes 
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6.7 DIRECT ACCESS METHOD (BDAM) PROCESSING 


BDAM files are accessed by block-id. The form of the block-id is 
defined in the OPTCD subparameter of the DCB parameter of the DD 
statement and the same form must be used by all programs accessing the 
file: 


e OPTCD=RF--block-id is three-byte binary RBN (relative block 
number) for fixed-length files only 


@ OPTCD=AF--block-id is eight-byte actual MBBCCHHR 


e@ OPTCD=F--block-id is three-byte binary TTR (relative track and 
record number) for fixed- or variable-length files. 


The F permits feedback (of block-id) requests: the form of the 
block-id is that requested by the OPTCD parameter. For Keyed BDAM with 
extended search, insert an E immediately after the = sign (that is, 
code OPTCD=ERF, etc.), and specify the LIMCT subparameter on the DCB 
parameter of the DD statement. 


6.7.1 File Handler Service Routines--READ, WRITE (BDAM) 


READ is called to retrieve a physical block. WRITE is called to 
update a block previously read, to replace an existing block in a 
preformatted file, or to add a new block. 


Coding format: 


CALL ’COBREENT’ USING FH-READ, EXTDSCTname, FHCWname, 
record-area[, key], block-id. 


CALL 'COBREENT’ USING FH-WRITE, EXTDSCTname, FHCWname, 
record-area[, key][, block-id]. 


Figure 30 shows FHCW options (byte 2) for standard and keyed BDAM 
files, and when to use key and/or block-id fields. Figure 31 describes 
the corresponding return codes. When reading a keyed BDAM file, the 
key will be read into the key field if a key parameter is passed and 
the key is not used as the search argument (w/o extended search). For 
a keyed BDAM file, replace requires a previous read; update and replace 
are synonymous. 


Intercomm provides two utilities for off-line preformatting of 
fixed-length BDAM files: 


® CREATEGF for BDAM files without keys 
@ §KEYCREAT for BDAM files with keys. 


These utilities are described in the Operating Reference Manual. 
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1. BDAM Files Without Keys 


ee ee 
ee Se rs a ee A rE QD ST RE ES RAD pte i en —— a 


Request Macro 
READ v/s) eae aeine control, w/block-id "READ DIF 
x [ READ w/exclusive control, w/block-id -—S«'|- READ DIX 
a i WRITE to update last READ, w/o block-id | —'||- WRITE DI/DIX. 
a WRITE to update/replace w/o previous READ, | WRITE DI 
w/block-id 
ad WRITE to add a record--variable-length only | WRITE DAF 


(record address returned automatically in 
caller’s block-id field) 


2. BDAM Files With Keys 


READ data block only w/o exclusive control 
(w/fextended search) w/key, w/block-id 


READ data only w/exclusive control READ DKX 
(w/extended search) w/key, w/block-id 


READ key and data block w/o exclusive control READ DIF 
w/o extended search, w/block-id (w/key) 


READ key and data w/exclusive control READ DIX 
w/o extended search, w/block-id (w/key) 


WRITE to update data only w/o extended search WRITE DKF/DKX 
w/key 


WRITE to update key and data w/o extended WRITE DI/DIX 
search, w/key (w/block-id) 


WRITE to add a record--next available space WRITE DAF 
w/key, w/block-id (w/extended search) 


*Feedback of record addresses may be requested for these options only 
by placing an F in byte 3 of the FHCW. 


Figure 30. File Handler BDAM Option Codes. 


NOTE: The DI form of the macros (issued in the File Handler) 
requires that the block-id field contains the exact address of 
the data record in the form specified by the OPTCD 
subparameter on the DD statement. With the DK form, if 
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extended search is not specified (via E on the OPICD subparameter), 
only one track is searched for a record with key matching that passed 
in the key field, and starting at the address specified in the block-id 
field. A WRITE for update of last READ does not need a block-id, as 
positioning is remembered internally. 


1. BDAM Files Without Keys 


Return 
Codes WRITE w/o block-id WRITE w/block-id 


Block from previous | Specified block 
READ updated added/replaced 


I/O error I/O error I/O error 

Block out of range | N/A RECFM=F... 

Block out of range 
RECFM=V... 

No space available/ 
block out of range 
N/A Exclusive Control N/A 

Time-Out 
File not selected | File not selected File not selected 

or invalid function] or invalid function | or invalid function 


Block retrieved 


BDAM Files With ‘With Keys 


| specified record 
added 


“Wrecova' 4 for 
previous READ 
updated 


I/O error I/O error I/O error 
Key not found Key not found at 
(READ w/key) block-id saved from] No dummy record found 
previous READ 4---------------------- 
(WRITE DK only) 


0. [Logical necord. 
retrieved 


No space available 
N/A Exclusive Control N/A 

Time-Out 
File not selected File not selected File not selected 
or invalid function/ or invalid function | or invalid function 


Figure 31. File Handler BDAM Return Codes 
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6.8 VIRTUAL STORAGE ACCESS METHOD (VSAM) PROCESSING 


VSAM support is provided for all three file types: KSDS, ESDS, 
and RRDS. Subsystems designed to access VSAM files use two File 
Handler service routines; GETV and PUTV. SELECT and RELEASE function 
for VSAM as they do for OS data sets. Calls are similar to the 
standard File Handler format, with the File Handler Control Word (FHCW) 
used to specify VSAM options. DD statements for VSAM must specify 
AMP=(AMORG) and for fixed-length data records, 'RECFM=F’ must also be 
specified on the AMP parameter: AMP=(AMORG, ’RECFM=F’). FAR options 
and execution options for VSAM files such as LSR buffer pool support, 
empty ESDS file load or overwrite, and data set name sharing, are 
described in the Operating Reference Manual. Most users converting 
ISAM to VSAM can continue to use their current File Handler calls. 
Refer to "ISAM/VSAM Compatibility under Intercomm" later in this 
chapter for further details. 


6.8.1 File Handler Service Routines--GETV, PUTV (VSAM) 


A VSAM call may request either sequential or direct access and 
may specify access for KSDS via keys (keyed access) or for ESDS via 
Relative Byte Addresses (addressed access). A keyed access call for 
direct retrieval may provide either a generic key or a full key, and 
may specify a search for either an equal (generic) key or for the first 
greater-or-equal (generic) key. 


A VSAM Relative Record Number Data Set (RRDS) may be accessed 
sequentially, or directly by Relative Record Number. A direct access 
request to a RRDS is made by suppling the Relative Record Number of the 
desired record instead of a key or RBA. All direct accesses to an RRDS 
must specify "full key, search equal." RBA access is not allowed and 
RRNs should not be converted to RBAs for access to an RRDS. Records 
may be inserted into emply slots in an RRDS but a record may not be 
added with a higher relative record number than the maximum allowed. 
This maximum is specified when the data set is defined to VSAM. 


GETV calls are processed assuming that no update will be 
performed unless the caller so specifies. The caller may switch back 
and forth from direct to sequential access, provided VSAM rules are not 
violated, for example, keyed request against an entry-sequenced data 
set. The File Handler service routine GETV is called for retrieval. 
The File Handler service routine PUTV is called for storage or 
deletion. 


Coding formats: 


For sequential access 


CALL ‘COBREENT’ USING FH-GETV, EXTDSCTname, FHCWname, record-area. 
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Coding formats (continued): 


For direct access 


CALL 'COBREENT’ USING FH-GETV, EXTDSCTname, FHCWname, 


For update of record retrieved by preceding GETV or for sequential 


record-area, {rba). 
{key} 
{rrn) 


addition 


CALL ’COBREENT’ USING FH-PUTV, EXTDSCTname, FHCWname, record-area. 


For direct addition of a new record 


CALL 'COBREENT’ USING FH-PUTV, EXTDSCTname, FHCWname, 


where: 


record-area, ({rba}. 
{key} 
{rrn) 


EXTDSCTname is the standard File Handler parameter. 


FHCWname is the standard File Handler parameter. Its VSAM use is 
to define processing options and to return completion codes to 
the caller (see Figures 32 and 33). 


record-area is the label of the user’s I/O area. For fixed 
length records, no length is specified and data will start in the 
beginning of the area. For variable length, the first four bytes 
of the area are used as an OS-type, fullword-aligned, variable 
record descriptor word (RDW), the first two bytes of which 
specify the appropriate length in binary (data length +4); data 
begins in the fifth byte. For GETV, the File Handler will return 
this length to the caller and for PUIV, the caller must provide 
the length to the File Handler. 


rba is the label of an aligned fullword containing the Relative 
Byte Address when required for addressed access. 


key is the label of a field providing a key, when required for 
keyed access. If a generic key is provided, then the first two 
bytes of this field must be the length, in binary, of the generic 
key which must begin in byte 3, and the field must be 
fullword-aligned. 


rrn is the address of a fullword-aligned field providing a 


four-byte binary Relative Record Number whose value is 1 to n, 
where n is the maximum record number defined for the data set. 
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6.8.2 VSAM Processing Options 


The following determine the mode of VSAM access to be performed: 


e The preceding call 


A VSAM call is dependent upon the preceding call only in two 
cases: PUTV for update, or sequential GETV or PUTV calls 
requiring initial positioning. 


In the first case, the PUTV call must be immediately preceded 
by a GETV for update, which identifies the record to be 
updated. The PUTV for update has no fourth parameter because 
the key, RRN or RBA was defined by the prior GETV. In the 
second case, a direct call providing a key, RRN or RBA and 
requesting positioning must be issued in order to process 
sequentially starting from that point in the file. To 
request positioning in this manner, specify S in the second 
byte of the FHCW for the direct call to GETV; the first 
record in the sequence will be returned. For an ESDS file, a 
GETV call without a fourth parameter results in sequential 
reads from the beginning of the file; the S in the FHCW is 
unnecessary. 


e The presence or absence of the fourth parameter 


With the exception of a PUTV for update, all calls for direct 
access specify a fourth parameter and all subsequent calls 
= for sequential access specify only three parameters. 


e The contents of the File Handler Control Word 


The second and third bytes of the FHCW are used to complete 
the definition of the options desired. Alphabetic codes are 
used and positive tests are made for each defined code. When 
no defined code is present, the default option (blank) is 
used. 


Bytes 1 and 2 of the FHCW are utilized the same as for OS Access 
Methods for Return Codes (Byte 1) and Special Requests (Byte 2). The 
first byte of the FHCW will contain a zoned decimal digit upon return 
from GETV or PUTV. A nonzero value indicates an error or an 
exceptional condition. 


Byte 2 is used in conjunction with direct access. When an §S is 
provided in byte 2, the direct access is treated as the first of a 
series of sequential requests which begins at a point specified by the 
fourth parameter. Therefore, a VSAM POINT will be issued and 
sequential access will subsequently be performed for the next call. 
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Byte 3 is used for all VSAM calls as illustrated in Figure 32. 
There are five default (blank) cases: 


3° GETV with three parameters (subsequent sequential access) 
e GETV with four parameters (search key/RRN equal, no update) 


e PUTV with three parameters with no prior GETV for update 
(sequential add/insert) 


@ PUTV with three parameters and with a prior GETV for update 


@ PUTV with four parameters (direct key/RRN add/insert) 


6.8.3 FHCW Reason Codes for VSAM 


Byte 4 is used to provide VSAM reason codes (from the RPL 
feedback field) upon completion of a VSAM file access request. In 
VSAM, a distinction is made between logical and physical errors. In 
either case VSAM returns a supplementary reason code in hexadecimal 
defining the condition more precisely. Accordingly, the File Handler 
will return this reason code in FHCW byte 4, for the caller’s use. If 
the File Handler was called at an ISAM entry point (GET/PUT, 
READ/WRITE), the code returned in FHCW byte 1 may differ from GETV/PUTV 
calls (in order to maintain compatibility with existing ISAM 
subsystems). Figure 33 summarizes VSAM and ISAM/VSAM return codes. 
VSAM reason codes are fully documented in IBM’s VSAM Macros manual. 


6.8.4 Exclusive Control for VSAM Files 


VSAM automatically provides exclusive control of a control 
interval (physical block) whenever a GETV for update is processed if 
the file was defined with SHAREOPTION 1 or 2. The subsystem must 
release this exclusive control via a call to RELEX before another GETV 
is issued for the same file, unless an intervening PUTV for update or 
erase is issued. If no subsequent GETV will be issued, the call to 
RELEASE will also release exclusive control. There is no VSAM 
exclusive control time-out. If the VSAM file is accessed by more than 
one region (Intercomm and/or batch), see IBM documentation on VSAM 
SHAREOPTIONs, and the Intercomm Operating Reference Manual. 


6.8.5 Loading an ESDS Data Set 


During File Handler initialization at startup, if an ESDS file is 
empty or if the FAR parameter WRITEOVER is specified, the ESDS file is 
flagged as output-only. The first call to SELECT for the file will 
return a code of l. The program receiving this code may only use a 
PUTV call for the file. If that (or any other) program will need to 
get a record from the file, it must close the file via calls to RELEASE 
(see Section 6.3.1), after the first PUTV. The next call to SELECT 
will return a code of 0, and any subsequent call to GETV or PUTV will 
then cause the file to be reopened for input/output and multi-thread 
access is then permitted. PUTV calls should be single- threaded to 
ensure file integrity. 
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| 6.8.6 lternate Path Processing of Keyed VSAM Files 
Base Cluster and Alternate Path processing of keyed VSAM files is 


supported with the following (VSAM-imposed) restrictions: 


If defined in the JCL, the DD statement for the base cluster 
must be before those for any related paths, and open at 
Startup must be requested via a FAR. Also, both the base 
cluster and the paths must be connected to an LSR buffer 
pool. 


Each path to be accessed on-line must be defined in the JCL 
and be SELECTed with the corresponding ddname. When created, 
the path must be defined with the UPDATE option. 


The FAR READONLY option must be specified for all paths and 
the base cluster (if defined) except for the path used for 
updating, when Shareoption 2 is in effect for the base 
cluster. If updating is only via the base cluster, then 
READONLY must be specified for all associated paths. VSAM 
will not allow any accesses to a base cluster under 
Shareoption 1 when one path has opened it for update. A base 
cluster under Shareoption 3 may be accessed for reads or 
updates by more than one path at any time, however no 
exclusive control (read/write file integrity) is provided by 
either VSAM or Intercomm. For Intercomm-provided exclusive 
control for Shareoption 4, see the Operating Reference 
Manual. 


If multiple paths are accessed, and/or retrieval/update is 
done via the path(s) and the base cluster, retrieval of 
updated versions of the records can be ensured via the FAR 
DSN and LSR parameters. 


Since duplicate keys may occur in an Alternate Index, the 
application program is responsible for checking for duplicate 
keys. Sequential processing (GETV type 1) can be used after 
the first GETV with key (and an S in byte 2 of the FHCW) in 
order to retrieve subsequent records. The program can test 
to see if the last record under a duplicate key was retrieved 
by checking the VSAM reason code which will be placed in byte 
4 of the FHCW. See IBM’s VSAM Macros manuals for reason code 
values. 


The alternate index data set must be defined with the UPGRADE 
attribute and be built prior to Intercomm startup. An 
attempt to retrieve a record from an empty file will cause a 
program check. 


Alternate index data sets should not be defined in the JCL 
unless access to a data record containing the prime keys is 
desired, or path processing is not used. Only readonly 
processing should be done for an AIX and for any related 
paths and for the base cluster, otherwise, retrieval of the 
current version of a record is unpredictable. 
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FHCW Byte | FHCW Byte 3  REY/RRN- 
No |No Update or RBA Comments 
In KEY or RRN 


sequence 
Sequential In RBA sequence 
(default for 
ESDS) 


Search = 


Chapter 6 


Service j Access or 
Routine Action 


Sequential 


U default 


Direct U default 


Direct L F Search greater 
Key or = (not valid 
for RRDS) 
= E Generic | Search = 
Key (not valid for 
RRDS ) 
Direct > G Generic | Search greater 
Key = (not valid 
for RRDS) 
Direct A R Addressed Access ) 
Sequential default No prior GETV for 
Add or update (insert 
Insert not allowed for 
Addressed Access) 
Update default Prior GETV for 
update required 
(Addressed Access 
update may not 
change length) 
E Prior GETV for 
update required 
(not valid for 
Addressed Access) 
Direct default (no prior GETV) 
Add or 
Insert 
Add A Insert not valid 


File Handler VSAM Call Summary 


Figure 32. 
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FHCW 
Byte 4 
Chexadecimal) 


Condition at Completion of Operation* 


FN SE EE ES TT A SS aT 


Successful completion (A) 0 04,08,0C,10,1¢C 
Physical I/O error (A) 04,08,0C,10,14,18 


End of data (1, 2) 04 


No record found (3, 4, 5, 6, 7) 10 
Key not within defined key ranges 24 
(3, 4, 2% 6, 7) 


Duplicate key (8, 11) 08 


Key out of ascending sequence (8) OC 


pdate attempt with new key (9) 60 


Key exceeds maximum (5, 6) 70 


Addressed update changes length (9) 64 


Invalid RBA provided (7, 12) 20 
Required positioning not performed 58 
(1, 2, 8) 
Direct or update call while loading (8) 74 
ETV for ESDS while loading (2,7) 


Insufficient disk space (8, 9, 11, 12) 1C 
Record on unmountable volume 18 
(1-7, 11, 12) 


Invalid Relative Record Number (3,11) co 


ew wenerwrereewewerweweewewZ weweweeweeweeweeweweeweewwewewewewewe wee wee a = = see eae ew ewe ew ee S| eS ee eewewrer |=’ F aw wewrwewe = = — 


Invalid RBA access to a RRDS file (7,12 C4 


Invalid EXTDSCT or file unavailable 00 
or PUTV called for READONLY file 


*Characters in parentheses reference the type(s) of VSAM Call 
(Figure 32) which apply. A = all cases. 


%*kShould not occur. The File Handler will force a program check 


condition to terminate the message in progress. 


Figure 33. File Handler VSAM Return and Feedback Codes 
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6.9 ISAM/VSAM COMPATIBILITY UNDER INTERCOMM 


Subsystems accessing ISAM files can function with little or no 
modification when their files are converted to VSAM. Intercomm'’s 
ISAM/VSAM interface does not use IBM’s VSAM/ISAM interface modules. 
See the Operating Reference Manual for steps necessary to activate the 
interface. When processing a VSAM data set, the File Handler uses 
QISAM compatible access for a GET or PUT call and BISAM compatible 
access for a READ or WRITE call. 


An ISAM retrieval is converted to a VSAM GET for update. If a 
key is provided, it is, of course, treated as a full key. For GET with 
a key, positioning and a search for a greater or equal key is 
performed. For READ, a search is made for an equal key. File Handler 
logic will initialize the user FHCW prior to performing the VSAM 
function as follows: 


@ Byte 2 is set to 'S’ to force sequential positioning. 
® Byte 3 is set to 'U’ or 'L’ to force update mode. 


ISAM delete code processing continues to function as usual via 
the OPTCD subparameter of AMP on the DD statement. The new OPTCD 
parameters (I, IL) which specify supplementary delete code processing 
are supported also. 


The following considerations apply to ISAM users converting to 
VSAM and should be carefully observed: 


@ ISAM subsystems must already be operational for ISAM files 
before accessing VSAM files. Erroneous ISAM parameter lists 
will cause unpredictable results. 


e Between a SELECT and a RELEASE, neither READ and GET nor 
WRITE and PUT may be intermixed. 


@ The caller may not provide his own DCB. 


®@ The FHCW will be modified in order to convert the call to its 
VSAM equivalent. 


e There is no equivalent to a QISAM physical block once the 
file has been converted to VSAM. All VSAM data records are 
equivalent to ISAM logical records. This means that users 
processing the file via READ in one subsubsystem and GET in 
another will both retrieve what would have been an ISAM 
logical record. 


Figure 33 describes return codes when ISAM/VSAM compatibility is 
used. 
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USING THE OUTPUT UTILITY 


Vara’ CONCEPTS 


The Output Utility is a subsystem that processes messages 
destined for terminals operating under control of Intercomm. It is 
responsible for completing any device-dependent formatting requirements 
in a message before passing it to the teleprocessing interface (FESEND) 
for eventual transmission to the terminal device. It also checks the 
operational status of destination terminals. Should it find a 
destination terminal not operational, it will redirect messages to an 
alternate terminal, if one has been named for that particular 
destination terminal. Otherwise, the Front End will intercept a 
message to a nonoperational terminal and queue it in the output queue 
assigned to that terminal to await its availability. If an alternate 
terminal name has been provided to the Front End Network Table, and the 
alternate can receive output, then the Front End will dequeue the 
message queued for the nonoperational primary terminal and send it to 
the alternate as soon as possible (useful primarily for non-functional 
printers). 


Vaz PROCESSING 


An application subsystem may create four different types of 
output message text, identified by a value in the message header VMI 
field (MSGHVMI): 


e Preformatted (VMI=X’'57’ or C’P’) 


Text consists of both data and device control characters. 
All spacing and other formatting (titles, column headings, 
etc.) is included in the message text. Output processing 
consists merely of passing the message to the Front End via 
FESEND. If the destination terminal (MSGHTID) is the name of 
a broadcast group, rather than an individual terminal, a 
separate message is created for each terminal of the group. 
Except for broadcast terminal-ids, subsystems should use the 
service routine FESEND, which is more efficient than queuing 
via Output. 
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r Formatting Required, Variable Text (VMI=X’'50’ or C’Q’ 


Text consists of a string of character data items to be 
inserted into a final message format defined by an Output 
Format Table (OFT) entry. Each data field is prefixed with 
an item code and length prefix, and an occurence factor (if a 
repetitive field), to identify the field. The OFT defines 
the position and content of titles, headings, etc., and 
defines the position where data fields from the message text 
are to be inserted. Output formats the final message, adding 
device-dependent control characters, and performs broadcast 
group processing, as described above. 


@ Formatting Required, Multiple Segments (VMI=n 


This form is used when multiple messages are to be created 
for the same hardcopy terminal (such as a printer) and inter- 
leaving of other messages for the same device is not 
desired. The text is variable format as described above. 
The VMI code for the first (or header) segment is X’'5l’ or 
C’l’; for intermediate segments is X’52’ or C’2’ or X’5C’ or 
C’4’ depending on line types desired; and for the final 
seqment is X’53’ or C’3’. The final segment must be queued, 
even if no intermediate segments are created, in order that 
Output may release the terminal for other messages. 


e Formatting Required, Fixed Text (VMI=X’72'’ or C’S’) 


Text consists of fixed length text fields in character or 
arithmetic format. This type of message is routed to the 
Change/Display Utility, where it is converted to a Variable 
Text message and routed to the Output Utility. The fixed 
text is described to Change/Display by a Format Description 
Record (FDR). The first twelve bytes of the fixed format 
text identify the particular FDR which details the fixed 
fields of the message. Byte 9 within this header provides 
the segment type (see Figure 34). 


The application subsystem creates its output message (header and 
text) and directs the message to either the Output Utility or the 
Change/Display Utility by calling the service routine COBPUT. The 
receiving subsystem codes and VMI in the message header specify the 
destination subsystem and message text formatting requirements. Figure 
34 summarizes message header specifications. In addition, the MSGHQPR 
field in the message header must be set to CG’2’ if the originating 
subsystem might process segmented input. 


The sample subsystem in Chapter 12 provides examples of using the 
Output and Change/Display Utilities. For complete details regarding 
the Output Utility and Change/Display Utility, refer to the Utilities 
Users Guide. 
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Message Header Fields Change/ 
wo ee re ee errr Display 
OUTPUT Message Type MSGHRSCH | MSGHRSC eee Prefix 


Preformatted (device-dependent) ae alk sai 
gr p 


Variable Text Formatting: 


Single Segment Messages: 
character format for item 


code, length 
(and occurrence number) 


binary format for item code, 
length (and occurrence number) 


Multi-Segment Messages: 
character format 


first segment or Or 

c’Q’ Ctl? 

detail segment X’52’ 
- repetitive data items or 
c’2’ 

detail segment X'5C’ 
- non-repetitive data items or 
c’C’ 


final segment 


binary format 
first segment 


- repetitive items X’52’ 
-non-repetitive items X’5C’ 


final segment ee ee ec Le 
Fixed Field Formatting: 


Single-Segment Messages: 


NOTE: COBPUT converts character codes to the corresponding 
hexadecimal values for VMI codes, and MSGHRSCH to X’00’. 


Figure 34. Message Header Specifications for the Output Utility 
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CONVERSATIONAL SUBSYSTEMS 


8.1 GENERAL GONCEPTS 


Conversational subsystems are defined as one or more subsystems 
designed to process more than one input message to complete a 
transaction. They effectively carry on a dialogue with the terminal 
operator, receiving an input message, retaining it and/or associated 
results of processing, issuing a response (perhaps a prompt for 
additional information), receiving another input message, retaining it, 
etc., until the transaction is complete. At the end of the 
conversation, appropriate files may be updated. 


8.1.1 Conversational Applications 


Typical applications which lend themselves to conversational 
processing are: 


@ Operator prompting (multiscreen input) 
® Batch Data collection 


Prompting, or multiscreen input, applications typically consist 
of dialogues in which the terminal operator enters an input message, 
the information is analyzed by the application subsystem and the 
results of processing are saved; the application subsystem then sends 
an output message to the terminal, prompting the operator for the next 
piece of information required. This dialogue continues until the 
application subsystem has obtained all the necessary information to 
complete processing for the given transaction. 


Batch data collection may be conversational in that even though 
the input data is saved for later retrieval, the collecting application 
may need to return an error message requesting correction of invalid 
input data before saving the input record, or the application may need 
to request the input of a different type of record (for more detailed 
subsidiary information, intermediate totals, etc.). 


8.1.2 Conversational Transactions 


Conversational transactions involve the sending and receiving of 
more than one message in a terminal session. Each input message may be 
processed by related subsystems or by the same subsystem. A two-part 
conversational transaction is illustrated in Figure 35. 
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customer name >» MESSAGE 


status request 


6 account number RESPONSE 
current status 


sales order data » MESSAGE 
zs verification of order RESPONSE 


Figure 35. Typical Conversational Transactions 


8.1.3 Retention of Information 


Assume a conversation in which three input messages and three 
responses are necessary to complete the transaction. A terminal, a 
subsystem and a storage medium on which to save the input messages, 
and/or corresponding intermediate results of the processing, are 
necessary components in the conversational environment. In the example 
illustrated in Figure 36, the subsystem receives information and 
prompts the terminal operator for additional information until it 


obtains all the required data. This intermediate information is also 
stored either in core or on a disk data set. After the final input 


message is received and processed, appropriate files are updated, 
intermediate data is deleted, and a final response is issued. 


ee 


Storage 


T Subsystem ABC 


Input Message 1---> Receive, process and store----> Input Message 1 
+ results 


Output Message 1<---Prompt for additional information | 


Input Message 2---> Receive, access Input Message 1<--Input Message l 
Process + results 

Also store Input Message 2 > Input Message 2 
+ results 


Output Message 2<---Prompt for additional information 


Input Message 3---> Receive, analyze with prior <---- Input Message 
messages and results 1 & 2 + results 
Update files, delete prior data 


Output Message 3<---Final response 


Figure 36. Input Message Data Retention During a Conversation 
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8.2 IMPLEMENTING CONVERSATIONAL SUBSYSTEMS 


Conversational subsystems may be implemented in several ways, 
each characterized by the retention of initial and subsequent input 
and processing results. The method of retention differs, depending 
upon the method of implementation chosen. 


Control of the conversation, or the retention of the input 
messages and/or corresponding results of processing may be 
accomplished by using any one of the following methods of 
implementation: 


8 The User SPA (User Extension to System Parameter List) 
® The Store/Fetch Facility 

e The Dynamic Data Queuing Facility 

@ The CONVERSE Service Routine 

® The Table Facility (instead of the DDQ Facility) 


In addition to the retention of the input environment, 
conversational subsystems have design considerations with respect to 
file updates and control of input verbs. These design considerations 
are discussed following a review of the first four methods of 
retention of input messages/data and corresponding results of 
processing. 


Intercomm provides Front End conversational support to ensure 
that duplicate input from the same terminal is not processed. This is 
accomplished by defining applicable verbs and interactive terminals as 
conversational in the Front End tables. See the Operating Reference 
Manual. 
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8.3 SAVING INFORMATION IN USERSPA 


The user extension to the SPA is called USERSPA and is accessible 
to all Intercomm subsystems since the SPA is the second entry parameter 
to all subsystems. The SPA is a 500-byte core-resident table. The 
user extention to the SPA begins at the 50lst byte and may include 
application-oriented areas, such as tables, counters, and switches for 
application subsystem use. Thus, the size of USERSPA is installation- 
dependent. The user portion of the SPA is optionally checkpointable 
and can be restored at system restart time. 


A portion of USERSPA may be divided into sections associating 
table space for each terminal, as illustrated by Figure 37. Each 
terminal-oriented area might be used for control data during 


conversational processing, until the conversation with that terminal 
completes. 


SPALIST macro 


User A Area 


User B Area 


TERMINAL/ Table for TID1 
TABLE 
SPACE 


Table for TID2 


Figure 37. User and Terminal Table Space in the USERSPA 


The SPA is expanded by updating the Assembler Language member 
USERSPA on the system release library SYMREL. The updated version 
should be stored on SYMUSR. When assembling INTSPA, USERSPA is copied 
as the last entry in the SPA Gsect. Therefore, any user additions would 
be referenced beginning with the 50lst byte. Any such additions should 
ordinarily be coordinated through the System Manager, as most 
application subsystems could be affected. 
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In the linkage section definition of SPA, as shown in Figure 38, 
three different applications have their own 50-byte areas defined: 
(USERA-AREA, USERB-AREA, USERC-AREA) plus a table for their common use 
(COMMON-TABLE). The Assembler Language member USERSPA for this example 
would contain a definition of an area corresponding to OURSPA. OURSPA 
could be defined as a systemwide COPY member for all COBOL routines, to 
be copied into the Linkage Section following the INTSPA statement. 


Ol SPA. 
02 INTSPA PICTURE X(500). 
02 OURSPA. . 


COMMON - TABLE PICTURE X(200). 


USERA-AREA PICTURE X(50). 
USERB-AREA. 

06 COUNT-FIELD1 PICTURE S9(8) COMP. 
06 ON-OFF-SWITCH PICTURE X. 

06 FILLER PICTURE X(45). 
USERC - AREA PICTURE X(50). 


Figure 38. Sample USERSPA Declaration Within a Subsystem 


The following chart summarizes the advantages and disadvantages 
of the USERSPA method of implementation of conversational processing. 


Advantages Information saved in Core; no I/O overhead. 
Accessed easily. 
Checkpointable and restorable at restart. 
Disadvantages The entire USERSPA is accessible to all Intercomm 
subsystems. Therefore a problem of control develops 


with respect to the possiblity of destruction of data 
by another subsystem, or security problems. 


Updating and maintenance of USERSPA may require 
recompiling all subsytems which reference it. 


A potentially large area of storage must be allocated. 


Addressability, if area larger than 3596 bytes. 
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8.4 SAVING INFORMATION WITH STORE/FETCH 


Conversational information may be stored and later retrieved 
(either in storage or on a disk data set) by the Store/Fetch Facility. 
Information is retained via the STORE function, and retrieved via the 
FETCH function. The storage space may be released via the UNSTORE 
function. Saved information may also be updated. 


An operator prompting type of conversation involving one terminal 
and one or more application subsystem(s) could use Store/Fetch very 
efficiently for retaining information. Store/Fetch performs its 
function upon data strings. Data strings are logical entities of 
information (input messages to be retained or whatever other data the 
user intends to save), which are identified by unique user-defined 
keys. The information is accessible only to those subsystems which 
call a Store/Fetch service routine naming the data string by its unique 
key, which could include the current terminal-ID from the input message 


header. Therefore, there is more control over the information than 
there would be if it were to be saved in the USERSPA. The data strings 
are classified as either transient, semipermanent or permanent. The 


differences between these classifications are as follows: 


Disposition Availability Storage Medium 


tl a a hn anne a mer fer te 


Transient Not available across restart Core or disk 


Semipermanent Available across restart Disk 


Permanent Available across every system Disk 
Start until explicitly unstored 


In conversational processing, permanent data strings should not 
be used. As to whether to use transient or semipermanent strings, the 
user must decide whether the information is critical enough to be 
preserved across system restart. If so, the data strings would be 
classified as semipermanent and would reside on disk. At restart time, 
the operator could then resume a conversation at the point of failure 
if subsystem logic can determine when the conversation was 
interrupted. If stored data is specified as transient, data is 
eligible to reside in core. Processing would thus be speeded up, as 
I/O overhead would be eliminated. At restart time, the operator would 
then start the conversation from the beginning. 


Detailed information on Store/Fetch, including the interface 
between application subsystems and the Store/Fetch service routines, 
may be found in Store/Fetch Facility. Application subsystem logic must 
determine whether the input message in progress is initial, 
intermediate or final. This determination is necessary to assure that 
the proper calls to Store/Fetch are issued when data is to be saved or 
retrieved. Once the determination is made, Store/Fetch may be used to 
manage the conversational information as shown in Figure 39. 
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Initial Input: 


STORE--create a new data string 
Intermediate Input: 

FETCH--retrieve existing data string 

STORE--update string: new information merged with existing data 
Final Input: 

FETCH--retrieve existing data string 

Process input and merge final information with existing data 


Update necessary files and create final output message 


UNSTORE--free data string storage 


Figure 39. Conversational Processing Using Store/Fetch 


Cc Subsystem processing logic can be simplified by using one or more 
of the following techniques: 


e A ‘string-not-found’ return code from a FETCH request 
indicates intial input (no intermediate data stored). 


e A FETCH with the Delete option forces restart of the 
conversation from the beginning if the system fails, or the 
subsystem times out or program checks before the STORE of the 
intermediate data can be done. This technique also saves 
Store/Fetch and core storage resource overhead. 


ay 
e The STORE of the intermediate data should be done after the 
output message is processed. 


@ File record(s) should not be updated until all intermediate 
data is collected. At this time the record(s) should be 
retrieved for update (exclusive control) and checked for 
external updates by unrelated processing since the 
conversation began. 


© Do not send the final confirmation output message until 
successfully updating the file(s). 
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8.5 SAVING INFORMATION ON A DYNAMIC DATA QUEUE 


The Dynamic Data Queuing Facility (DDQ) is a Special Feature 
available to Intercomm users. Detailed specifications on using DDQ may 
be found in Dynamic Data Queuing Facility. A DDQ provides the 
application subsystem with the ability to dynamically create, retrieve 
and delete logical data sets (or queues) of records on a BDAM data 
set. As illustrated in Figure 40, more calls are required to interface 
with the DDQ routines than are required to interface with Store/Fetch 
to obtain the same functions. However, a DDQ provides the ability to 
Save several related data strings as a type of sequential file. The 
entire DDQ can then be processed by another subsystem or postponed for 
batch processing. A DDQ is most effectively used, not as a means for 
temporary storage of data during a conversation, but as a means for 
accumulating conversational results for subsequent processing, that is, 
for data collection. This facility can also be used for collecting 
data from related conversations with more than one terminal. 


The data queues may be either transient, single-retrieval 


transient, semipermanent or permanent. Single-retrieval transient 
queues cannot be read more than once. This type of DDQ, therefore, 
would not be suitable for conversational processing. The other queue 


types are distinguished by the following characteristics: 


—— 


Transient Must be passed to another subsystem or freed. 
Cannot be retrieved later. 
Not preserved across restart or normal startup. 


Semipermanent | Retrieved at a later point in time via a 
user-provided Queue Identifier (QID). 


Extra I/0 overhead is involved in saving the queue. 


Can be freed by user request. 


Queue must be completed (closed) in order to be 
preserved across restart. 


Existing semipermanent queues freed at normal startup. 
Permanent Same characteristics as semipermanent except that 
permanent queues are always preserved across any 


Intercomm start, warm or cold, if closed at least 
once. 
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Figure 40 illustrates typical use of DDQ facilities in 
conversational processing. The application subsystem logic must 
determine whether input is initial, intermediate, or final. Final 
input, in this example, causes the queue to be closed and passed to 
another subsystem for asynchronous or postponed file updating. Thus, 
the terminal operator, upon receipt of the final output message, can 
begin another conversation without waiting for file updates to occur. 
This technique is particularly useful for files which do not require 
up-to-date inquiry response such as order entry, personnel, etc. 


Initial Input: 
QBUILD -- Create a new queue 
QWRITE -- Save input message and related data 
QCLOSE -- Save the DDQ 
Intermediate Input: 
QOPEN Open the queue 


QREADX -- Read the record or QWRITE to add 
with intent to update to the queue 


QWRITEX -- Update the record 
Save the DDQ 
Final Input: 
QOPEN Open the queue 
QREADX -- Retrieve the record or QWRITE to add 


to the queue 
QWRITEX -- Update the record 


QCLOSE -- Pass the DDQ to another subsystem which will update 
files and free the queue. 


Issue final output message. 


Figure 40. Conversational Processing Using Dynamic Data Queuing 
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8.6 SAVING INFORMATION VIA THE CONVERSE SERVICE ROUTINE 


The final method of retaining information for a conversation is 
to use the Intercomm system service routine CONVERSE. The CONVERSE 
routine is called by an application subsystem when input from the same 
terminal is required to continue processing a transaction. The 
application subsystem thread stops processing until the next input 
message is received from that terminal. Control is returned to the 
next sequential instruction following the call to CONVERSE. 


Application subsystems are designed more easily with CONVERSE, as 
it is simpler to control the sequential order of the messages. 
However, the use of CONVERSE is not encouraged, as it ties up Intercomm 
resources. Dynamic working storage associated with the initial and 
subsequent input messages is retained during the call to CONVERSE. 
Storage requirements for subsystems would be greater than when other 
conversational techniques are used, because one subsystem contains 
logic for all message types of a conversational transaction. It is far 
more efficient to design conversational subsystems which retain control 
only for the amount of time necessary to process one message than to 
tie up system resources while each input message in the conversation is 
in turn received, kept, analyzed and responded to in one execution of 
one application subsystem. When CONVERSE is used, dynamically loaded 
subsystems remain in storage until all "conversations in progress" have 


terminated. Intercomm restart processing of such subsystems restarts 
the conversation from the beginning. All intermediate messages are 
discarded. 


The saving of information in the USERSPA or in a Store/Fetch data 
set or in a DDQ or Table Facility table does not require an application 
subsystem to contain logic for time-outs. The use of CONVERSE does. 
If the next input message is not received in the time limit specified 
by the user, a time-out occurs, which must be handled by subsystem 
logic. 


An example of the use of CONVERSE in a two-part conversation is 
illustrated in Figure 41. 


NOTE: CONVERSE is not supported for VS COBOL II, nor for OS/ANS COBOL 
subsystems loaded above the 16M. 
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SUBSYSTEM 
CALLED BY 
MONITOR 


Part A Logic PROCESS 
INPUT Beginning of Conversation 
MESSAGE A 


FORMAT 
OUTPUT Pass Message to Front End 
MESSAGE A 


| CONVERSE | 
SAVE THE CONVERSE saves terminal 
INTERCOMM identification, subsystem code, 
ENVIRONMENT Storage pointers, etc. 


When the next message with the 
Part B Logic PROCESS Same terminal-id arrives, the 
REPLY subsystem resumes from this point 
MESSAGE B referencing the original areas 
and the new message. 


FORMAT 
OUTPUT Pass message to Front End 
MESSAGE B 


RETURN TO 
MONITOR 


Figure 41. Conversational Subsystem Logic Using Converse 
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8.6.1 Subsystem Design Using CONVERSE 


The iIntercomm system service routine CONVERSE is called when 
awaiting additional input in response to some prompting message. Since 
any interval may elapse before the next message is received, CONVERSE 
will save information in its own control table for each conversation 
and return to the Subsystem Controller while waiting for the response. 


The call to CONVERSE specifies a time limit within which a reply 
message should be received. If it is not received during the specified 
interval, then the subsystem is entered at the next instruction 
following the call to CONVERSE and its message parameter is adjusted to 
point to a time-out message supplied by CONVERSE. That message (header 
plus text) could then be switched to the Output Utility or FESEND. The 
terminal identification in the header is that of the non-responding 
terminal. A zero value for the time limit will bypass the automatic 
time-out feature. 


Coding format: 


CALL 'COBREENT’ USING CONVERSE, word, time. 


where: 
word 
is the name of an aligned fullword (PIC 9(8) COMP SYNC) in 
the subsystem’s DWS required by CONVERSE for work space. 
time 


is the name of an aligned fullword binary value indicating a 
limit (in seconds) within which a subsequent message is 
anticipated. 


When processing resumes following the call to CONVERSE, the 
environment appears as it was before the call--except the input message 
parameter (unless there was a time-out) now points to the most recent 
message from the terminal. It will have been edited if specified for 
the verb’s definition in the Front End Verb Table. The Intercomm 
return code area will contain a binary value in the low-order byte 
indicating the condition for return from CONVERSE (see Figure 42). 


The CONVERSE program keeps track of conversational requests by 
terminal and subsystem, and separates messages accordingly. Hence, 
each unique subsystem thread may be in conversation with a different 
terminal. 


It is the subsystem’s responsibility to verify that the message 


received following the call to CONVERSE is actually the appropriate 
message expected in the logical sequence of the conversation. 
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Note that the CONVERSE routine may only be called from a 24-Amode 
OS/VS or ANS COBOL subsystem. Due to complications arising in 
reestablishing COBOL internal tables on return from the call to 
CONVERSE, it may not be called by a COBOL subroutine of the subsystem. 


For example: 


e Monitor calls COBOL Subsystem AA which calls CONVERSE (valid 
sequence of program logic). 


e Monitor calls COBOL Subsystem BB which calls Assembler 
Language subroutine Bl which calls CONVERSE (valid sequence 
of program logic). However, if the new input message 
processed by the Assembler Language subroutine on return from 
the call to CONVERSE is freed by the subroutine or passed by 
it to another subsystem or FESEND, then the subroutine must 
zero the first word in the parameter list passed to it (see 
Assembler Language Programmer’s Guide), and under Release 10, 
it must also zero the first word of the original parameter 
list passed by PREPROG to a reentrant COBOL subsystem. 
PREPROG’s parameter list address is stored in the field 
ITCBPMSS in the Intercomm Thread Control Block (ITCB) whose 
address is obtained via the INTTCB macro with OPT=S (see 
Basic System Macros). The calling COBOL subsystem may then 
not reference the input message area or any of its data 
fields (except for data fields in its DWS passed as 
parameters to the BAL subroutine for storing message data 
and/or a copy of the new message header for the next output 
message). Note that the BAL subroutine may use the new 
return code address parameter to pass a code back to the 
COBOL subsystem, or the COBOL subsystem may test it for the 
CONVERSE return code on return from the BAL subroutine. 


@ Monitor calls COBOL Subsystem CC which calls COBOL subroutine 
Cl which calls CONVERSE (invalid sequence of program logic). 


The COBOL subsystem may not use an old copy of the message header for a 
new output message. If the subsystem calling CONVERSE is compiled with 
the ANS4 or a VS compiler, the Intercomm input-message and return-code 
parameters may not be addressable after the call. Use the IBM SERVICE 
RELOAD verb immediately following the CONVERSE call to solve this 
problen. 


Conversational subsystem logic must be designed with care 
regarding file access. Selected files should be released prior to the 
call to CONVERSE. If not, other subsystems accessing the same files or 
other messages in process in the same subsystem may "time out." This 
may occur because an operating system control block is associated with 
the access to the file and is not "freed" until the file is released. 
If a file is accessed prior to the call to CONVERSE and released after 
the call to CONVERSE a "lock out" situation may occur. 
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Conversational Subsystems 


Return Codes Meaning 


car re EES 2S SS OE AES TO ROR, ap 


(X'00") Normal return: the entry parameter input-message 


reflects the address of the new input message. The 
message will have been edited successfully if the 
Front End Verb Table shows editing required. (If 
editing is unsuccessful, error messages will be sent 
to the terminal, and the subsystem is not reactivated 
until either a subsequent input message is edited 
successfully or an automatic time-out occurs.) 


CAUTION: The CONVERSE automatic time-out is not 
extended if a message is found in error by 
the Edit Utility. 


17 (X'11") No core available for CONVERSE control blocks; 


conversational mode not initiated. 


18 =(X'12") Time-out expired. The entry parameter input-message 


reflects the address of an error message generated by 
CONVERSE. The message header contains the appropriate 
terminal identification. The message text is: 


*PMI*CONVERSE*ANTICIPATED MESSAGE NOT RECEIVED 
WITHIN USER SPECIFIED TIME INTERVAL 


Figure 42. CONVERSE Return Codes 


Control of the conversational program environment is accomplished 
by Intercomm in different ways, depending on the subsystem’s residency: 


Resident 


The dynamic-work-space (DWS) for one message from a terminal 
is retained pending arrival of the next message from that 
terminal; the subsystem will continue to process messages 
from other terminals. 


Overlay Loaded 
Same as above, except the loaded overlay region may contain 


other subsystems to process other messages during (and after) 
"CONVERSE time." 


Dynamically Loaded 


Same as above, except the subsystem remains in core until all 
"conversations in progress" have terminated. 
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8.7 DESIGN CONSIDERATIONS IN CONVERSATIONAL PROCESSING 


In order to ensure file integrity, conversational subsystems 
performing file and/or data base updates should be designed to perform 
the updates for the last message in the conversation. Alternatively, 
control may be passed (via message queuing) to a non-conversational 
subsystem to perform the updates. 


8.7.1 Control of the Input to Conversations 


Conversational subsystems expect ordered input. They must be 
designed to analyze input messages and to determine which message in 
the sequence has been received. Control of the input may be exercised 


by the terminal operator or by the application subsystem(s). 


The terminal operator may be given a specific sequential list of 
messages to input at the terminal for a given verb or verbs. This 
method would probably be used for data collection applications, in 
which more messages are sent to the application subsystem than are 
received at the terminal. It could also be used for any conversational 
application in which the order of input is fixed. 


The application subsystem may control the input sequence by 
analyzing an input message, processing it, and issuing a response 
informing the operator about the content or format of the next input 
message. The response may direct the operator to input another verb 
(that of a related subsystem). Subsystem-controlled input is good for 
conversations in which the "next" desired piece of information may vary 
depending upon the contents of a file record, or a table, or the 
setting of a switch in the area saved between subsystem activations. 


8.7.2 Assigning a Verb to a Terminal 


To eliminate the requirement for an operator to key in a verb 
with each input message, the operator may enter a system control 
command message to LOCK a specific terminal to a particular verb. The 
Front End then prefixes that verb to each input message from that 
terminal. The operator may enter another control message, UNLK, to 
unlock the terminal from the verb. See System Control Commands. 


The LOCK/UNLK commands processed by the Front End can also be 
issued by a _ subsystem. When a LOCK is in effect, all subsequent 
messages from the specified terminal will be automatically prefixed by 
the verb specified in the LOCK command. This LOCK remains in effect 
until UNLK is issued. With LOCK in effect, some advantages are: 


@ The terminal operator does not have to keep reentering the 
Same verb. 


e Anew verb cannot be entered during the conversation. 
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Either the subsystem or the operator may control the input 
sequence by locking and unlocking the terminal to different verbs at 
different points in, or at the end of, the conversation. 


Optionally, the Intercomm AUTOLOK feature may be defined for the 
verb in the Front End Verb Table, which dictates that when that verb is 
input from the terminal, the terminal is to be automatically locked to 
that verb. Subsequently, the terminal is to remain locked until 
specifically UNLKed by the operator or processing subsystem. 


The format for the LOCK/UNLK commands (message text) is as 
follows: 


LOCKS TPUxxxxxSvvvv@ 
UNLKS$ TPUxxxxx@ 
where: 
XXXKX 
is the five-character terminal identification 
VVVV 
is the four-character verb 
@ 
is the end-of-transmission character (X’26’) 
$ 


is the system separator character as defined for the 
installation. 


The preformatted message constructed by a subsystem must be 
prefixed with the standard message header for FESEND 


(MSGHRSCH=X’00' ,MSGHRSC=X’00’ , VMI=X'57"). This message is passed to 
the Front End via FESENDC (see Chapter 9) and the LOCK or UNLK takes 
place. No response message is sent to the terminal when such 


processing is requested by a subsystem. 
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USING INTERCOMM SERVICE ROUTINES AND FACILITIES 


9.1 REENTRANT COBOL INTERFACE ROUTINE (COBREENT) 


COBREENT is the interface routine called by all COBOL subsystems 
in order to maintain reentrancy during execution of a subroutine which 
potentially causes an I/O operation or gives up processing control to 
the Intercomm Dispatcher. The application program calls COBREENT 
specifying which subroutine is to be called (system program or user 
routine) and the appropriate parameters to pass to it. COBREENT saves 
registers, chains save areas, saves the program’s Task Global Table (if 
OS/ANS COBOL) or it’s THDCOM (if VS COBOL II) in a dynamic storage 
area, saves the COBOL save area, and saves the entry parameters for the 
called program. COBREENT then calls the specified subroutine. On 
return from that subroutine, COBREENT restores the environment and 
returns to the calling program. Coding format: 


CALL 'COBREENT’ USING routine-code, parameters. 
where: 
routine-code indicates the routine entry to be called. 


parameters is the actual parameter list to be passed to the 
called routine. A maximum of ten parameters is recommended. 
Intercomm service routines require less than ten parameters; user 
subroutines should be designed with this limit in mind. The 
limit on the number of parameters passed by VS COBOL II programs 
is 64. If the calling subsystem (or subroutine) may be loaded 
above the 16M line, then all referenced parameters must be in the 
caller’s DWS (have a 24-Amode address), except they may be in the 
Working-Storage Section if the caller is VS COBOL II. 


Routine-codes name halfword offset values into the REENTSBS table 
of routine addresses. Offsets 0 through 100 are reserved for Intercomm 
System routines. Offsets 104 and up may be used for user subroutines. 
Figure 43 lists the routine-codes assigned as identifiers for Intercomm 
service routines in the released REENTSBS table. The COPY member (of 
routine-codes) for COBOL subsystems and subroutines is named ICOMSBS 
and is illustrated in Appendix B. See also Chapter 3 for sample coding 
using the ICOMSBS table. The hard-coded (with a VALUE clause) 
routine-code may be in the caller’s Working-Storage Section of all 
COBOL programs. 


Specifications and coding criteria for user subroutines are 
described in Section 7 of this chapter. 
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ENTSB1 CSECT 
NEGATIVE OFFSETS ARE USED BY SPECIFYING AN OFFSET ENDING IN B’1l1’, 
WHICH IS INCREMENTED BY 1 AND COMPLEMENTED TO OBTAIN TRUE OFFSET 
BY COBREENT AND PMIPL1. 


ENTSBS 


SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 


NAME=INITLU6 
NAME=INTSORTC 
NAME=DWSSNAP 
NAME=MAPFREE 
NAME=FECMRLSE 
NAME=FESEND 
NAME=FESENDC 
NAME=ALLOCATE 
NAME=ACCESS 
NAME=MA PURGE 
NAME=MAPCLR 
NAME=MAPEND 
NAME=MAPOUT 
NAME=MAPIN 
NAME=INTUNSTO 
NAME=INTSTORE 
NAME=INTFETCH 
NAME=FECMFDBK 
NAME=FECMDDQ 
NAME=QWRITEX 
NAME=QREADX 
NAME=QWRITE 
NAME=QREAD 
NAME=QCLOSE 
NAME=QOPEN 
NAME=QBUILD 


ENTRY REENTSBS 
DS 0A 
DCG A(REENTEND-REENTSBS -4) 


SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 
SUBMODS 


Figure 43. 


NAME=SELECT 
NAME=RELEASE 
NAME=READ 
NAME=WRITE 
NAME=GET 
NAME=PUT 
NAME=RELEX 
NAME=FEOV 
NAME=TABUILD 
NAME=TABOPEN 
NAME=TABPUT 
NAME=TABGET 
NAME=TABSORT 
NAME=TABEND 


COBREENT Routine Pointers 


OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFEST 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 


Using Intercomm Service 
Routines and Facilities 


-104,CODED AS 
-100,CODED AS 
-96,CODED AS 
-92,CODED AS 
-88,CODED AS 
-84,CODED AS 
-80,CODED AS 
-76,CODED AS 
-72,CODED AS 
-68,CODED AS 
-64,CODED AS 
-60,CODED AS 
-56,CODED AS 
-52,CODED AS 
-48,CODED AS 
-44,CODED AS 
-40,CODED AS 
-36,CODED AS 
-32,CODED AS 
-28,CODED AS 
-24,CODED AS 
-20,CODED AS 
-16,CODED AS 
-12,CODED AS 
-8,CODED AS 7 
-4,CODED AS 3 
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ALLOW FOR NEGATIVE OFFSETS 


CODE 4- 
CODE 8- 


CODE 28- 


REQUIRED 
FILE SELECT 


FILE RELEASE 
CODE 12- FILE READ 
CODE 16- FILE WRITE 
CODE 20- FILE GET 
CODE 24- FILE PUT 


CODE 32- FILE FEOV 
CODE 36- TABLE BUILD 
CODE 40- TABLE OPEN 
CODE 44- TABLE PUT 
CODE 48- TABLE GET 
CODE 52- TABLE SORT 
CODE 56- TABLE END 
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(Codes 60-64 
are reserved) 
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SUBMODS NAME=COBPUT CODE 68- COBOL MESSAGE SWITCHING 
SUBMODS NAME=MSGCOL CODE 72- MESSAGE COLLECTION 
SUBMODS NAME=COBSTORF CODE 76- COBOL STORFREE 
SUBMODS NAME=CONVERSE CODE 80- CONVERSE 
SUBMODS NAME=DBINT CODE 84- DATA BASE REQUEST 
SUBMODS NAME=LOGPUT CODE 88- LOGPUT 
SUBMODS NAME=PAGE CODE 92- PAGE ROUTINE 
SUBMODS NAME=GETV CODE 96- VSAM GET 
SUBMODS NAME=PUTV CODE 100-VSAM PUT 
PIKE RICRRRERERERIRRIRIREEREA RIA RIA RITTER REECE REET EET 
eke INSERT USER SUBMODS MACROS HERE 
COPY USRSUBS 
ENTEND EQU * REQUIRED AFTER LAST SUBMODS 
ENTRY REENTEND 
REENTSB1 CSECT 
END 


Figure 43. COBREENT Routine Pointers (REENTSBS) (Page 2 of 2) 


eA INTERSUBSYSTEM QUEUING (COBPUT) 


COBPUT is called to queue a message for a user or Intercomm 
subsystem. Queuing is controlled by the Receiving Subsystem Code 
fields in the message header. If segmented input messages may be 
processed, set the MSGHQPR field in the header to C’2’ before calling 
COBPUT. If the Edit Utility is used in the system, ensure the VMI 
field (MSGHVMI) is non-zero so that an attempt to edit the message 
for/by the receiving subsystem is not made. 


Coding format: 
CALL ‘COBREENT’ USING COBPUT, message, return-code. 
where: 


message is the label of the first position of the message 
(header + text) to be queued 


return-code is the label of a two-byte character field where 
COBPUT will place a return code. 


COBPUT copies the message to be queued to a new area of dynamic 
storage, converting variable character format message text and header 
fields as necessary if the Receiving Subsystem Code is for the Output 
Utility (see Figure 34). COBPUT then calls Message Collection (MSGCOL) 
to accomplish the queuing of the message. Figure 44 lists COBPUT 
return codes. 


The original message remains in the calling program’s Dynamic 
Working Storage. If the message has not been processed or queued 
successfully, the subsystem may attempt to recover, or simply return to 
the Subsystem Controller with a return code of 8 or 12. Figure 45 
lists various alternatives. 
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02, 06, 
14, 16 


04, 08 
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OTE TS TD SE A SUED STR EAT .—— ane 


Meaning 


Message queued successfully 


NOTE: For Multiregion Facility users sending a message 
to another region, this return code signifies that 
the message was queued for sending to that region. 


Item code, length, or line number greater than 255 in 
variable character data item prefix (Output Utility) 


No room on subsystem queue, or (Rel 10) msg rejected for 
delayed subsystem--an entry was made on the system log 
(MSGHLOG=X’ FC’) 

Nonnumeric item code (Output Utility) 

No core for disk queue I/O area, or to copy message 

N or R omitted in variable character data item prefix 


I/O error on disk queue 


COBPUT has detected a message length too short to 
convert character item codes and lengths 


Invalid subsystem code--an entry was made on the system 
log (MSGHLOG=X’FB’ ) 


DVASN system routine could not reserve a device (on first 
segment of multi-segmented messages only) 


A non-zero return code means the message was neither 
queued nor processed. 


Figure 44. COBPUT Return Codes 


aaa UH TNT PN UN a a re SY NT 


a eT thi on reer map er ne eS TS ee ———— 


Program error: no recovery action. Correct the 
invalid fields and recompile progran. 


Requeue the original input message for reprocessing 
by the currently executing subsystem via calling 
COBPUT referencing the input message and the 
currently executing subsystem, or follow action for 
Return Code 28. 


No recovery action: return to Subsystem Controller 
with return code 12. 


Attempt a time delay and call COBPUT to attempt 
queuing of the message again. 


Figure 45. Recovery From COBPUT Errors 
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9.3 INPUT MESSAGE SWITCHING (MSGCOL) 


COBPUT is called to queue an output message to activate another 
subsystem. It copies the message from the Dynamic Working Storage area 
of the calling subsystem to a new dynamic area and calls Message 
Collection. Thus, the output message area within the dynamic-work- 
Space of a subsystem is reusable upon return from COBPUT. 


The logic of an application subsystem might be such that the 
input message is modified within its dynamic area to become an output 
message to switch to another subsystem. To do this, the length of the 


input message may not be increased (data may not be added). If the 
length is shortened by 8 bytes or more, see the next section on freeing 
the remainder, and adjusting MSGHLEN in the header. Queuing the 


message for the next subsystem is then done by calling Message 
Collection (MSGCOL), instead of COBPUT; Message Collection then owns 
and is responsible for the management of the message area. All queuing 
is controlled by the receiving subsystem code fields (MSGHRSCH and 
MSGHRSC) in the message header. When returning to the System Monitor, 
the subsystem return code must be set to 900 (see Figure 14). 


Coding format: 


CALL ’COBREENT’ USING MSGCOL, message, SPA-addr, return-code. 
where: 


message is the label of the input message to be queued. 
SPA-addr is the second entry parameter in the Linkage Section. 


return-code is a fullword computational field where COBREENT will 
place the return code from MSGCOL. 


MSGCOL return codes indicate the result of the queuing. The 
return code is fullword binary and can therefore use the same field as 
the Intercomm return code. (See Figure 46.) Regardless of the result, 


the callin rogram no longer has any control over the area of dynamic 
storage occupied by the input message and must return a code of 900. 


= a ee a ren fei cara Se ee el ST TY eae SA SY SEN ses re 


SE eT 


Message queued successfully 


No room on queue (entry made on system log), 
or message rejected for delayed subsystem (Rel 10) 


No core for disk queue I/O area 
I/O error on disk queue 


Invalid subsystem code (entry made on system log) 


Figure 46. Message Collection Return Codes 
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Recovery action for unsuccessful queuing might be to return to 
the System Monitor with a return code of 8 or 12. A message would then 
be sent to the terminal that originated the input message being 
processed, if USRCANC (PMICANC) is included in the Intercomm linkedit. 


9.4 FREE DYNAMIC (MESSAGE AREA) STORAGE (COBSTORF ) 


COBSTORF may be called to free an area of dynamic-work-space not 
utilized for a message passed to another subsystem and not to be freed 
by the Subsystem Controller when the subsystem returns (see Section 
9.4.1). COBSTORF may also be used to free the end of an input message 
area when the message text is shortened before being queued for another 
subsystem (see previous section). 


Coding format: 
CALL ’'COBREENT’ USING COBSTORF, area, length. 
where: 


area is the name defining the first (leftmost) position of the 
area to be freed. 


length is the name of an aligned fullword containing a binary 
value indicating the number of bytes to free. 


CAUTION: Dynamic storage is managed as doublewords. The area 
specified should be aligned on a doubleword boundary 
(COBSTORF will round up the address if not). The 
length specified should be a multiple of 8 (COBSTORF 
will round down the length if not). See also SYCTTBL 
macro, GET and FREE parameters, defining the DWS 
obtained and freed by the Subsystem Controller as 
described in Chapter 2. Note also that COBSTORF 
calls may not be used to free part of the DWS if DWS 
overflow checking is desired. When freeing part of 
an input message, only the rightmost portion may be 
freed and the remaining length must be stored in the 
first two bytes (MSGHLEN) of the message header 
before calling MSGCOL. 


9.4.1 INTERSUBSYSTEM MESSAGE QUEUING VIA MESSAGE COLLECTION (MSGCOL) 


Since a message created by a reentrant subsystem resides in 
dynamic-work-space, it is not a requirement that COBPUT be used to copy 
a message to be queued to another subsystem. Message Collection may be 
called directly, depending on the SCT specification for the subsystem 
(GET and FREE parameters of the SYCTTBL macro). This feature may not 
be used if DWS checking is in effect (see Chapter 3), nor if the 
message is in a VS COBOL II program’s Working-Storage Section. For the 
coding format and return codes, see Section 9.3. 
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The SCT entry specifies the amount of core for dynamic-work-space 
obtained upon entry to a reentrant subsystem and also, the amount of 
core to be freed when that subsystem returns to the Monitor. They need 
not be equal. If wumnequal, the area of core remaining to be freed is 
the "leftmost" or first portion of the area obtained. The application 
programmer is then responsible for the "rightmost" area of 
dynamic-work-space. A new message may be created in that area (must 
start on a doubleword boundary) and queued for any other subsystem by 
calling MSGCOL. MSGCOL then owns and is responsible for that amount of 
core specified in the message header length field. Any remaining area 
of dynamic-work-space beyond (to the right of) the message area must be 
freed by the application subsystem by calling COBSTORF before returning 
(GOBACK) to the Monitor. 


For example, consider two reentrant subsystems: 
® Subsystem XX - SCT specifies: 
-- 1024 bytes of dynamic-work-space obtained 
-- 1024 bytes freed on return to the System Monitor 


Must use COBPUT to queue any messages for other subsystems, 
that is, OUTPUT, etc. 


@ Subsystem YY - SCT specifies: 
-- 1024 bytes of dynamic-work-space obtained 
-- 512 bytes freed on return to the System Monitor 


May use MSGCOL to queue a message for another subsystem if 
defined in last 512 bytes of the dynamic-work-space (DWS); or 


May use COBPUT instead. 


Must use COBSTORF to free any part of DWS not freed on return 
to System Monitor and not referenced by a call to MSGCOL. 


To illustrate: 


If subsystem YY queued a message for Output with 
MSGHLEN=128, subsystem YY is responsible for freeing the 
remaining 384 bytes of the 512 not freed by the System 
Monitor. 


é DWS: 1024 obtained on entry to program > 


512 freed on Me 4 128 used p~< 384 to free by - 
Return to System for output COBSTORF 
Monitor message 
queued by 
calling 
Message 
Collection 
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25 SEND MESSAGE TO FRONT END (FESEND) 


FESEND is called to pass a message to the Intercomm Front End for 
transmission to a terminal. The message header field MSGHTID specifies 
the destination terminal or broadcast group name. The entry point 
FESENDC of FESEND is _ used by high-level language subsystems. FESENDC 
copies (from the caller’s DWS) the message to be passed to the Front 
End to a new area of storage and proceeds via logic in the program 
FESEND. FESEND then requests queuing of the message on the associated 
terminal queue. If a broadcast group is specified, FESEND creates an 
individual message for each terminal of the group and requests queuing 
for each of those messages. All terminals in the broadcast group must 
be of the same type, as defined in the Back End Station and Device 
tables (see Chapter 2). 


FESEND accepts two types of messages: preformatted (VMI=X’'57’) 
message text, which contains the control characters and data for 
transmission to the terminal except for start-of-text sequence(s) to be 
added by the Front End; and fully-formatted (VMI=X'67’) message text, 
which contains all control characters and data ready for transmission 
to the terminal. (MMU produces fully-formatted messages.) If 
segmented input messages may be processed, set MSGHQPR to C’2’ before 
calling FESENDC. If passing the message to the Front End is for any 
reason unsuccessful, the subsystem is notified by a return code, and 
recovery action may be taken. 


FESEND tests whether messages sent to the Front End might be 


system commands or for control purposes. Such messages control Front 
End operation and generally cause no output to a terminal. Front End 
Control Messages (FECMs) are described later in this chapter. All 


system control commands and message text contents are documented in 
System Control Commands. 


Coding format: 


CALL 'COBREENT’ USING FESENDC, message, return-code[, option-codes]. 


where: 
message is the label of the output message (header and text) 
to be passed to the terminal queue. 


return-code is the name of a two-byte character field where 


FESENDC will place a return code indicating whether or not 
processing was successfully completed. 
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option-codes is the name of an optional four-byte character 
field containing Front End processing codes as follows: 


Byte 1: CRT Release option code: 
blank or X’00’--do not release (prevent screen 
overlay) next message (default) 
C’R’--release (allow overlay) next message to CRT 
C’C’--release next message, but do not cancel 
Front End conversational time-out 


Byte 2: VTAM Response option code (overrides Front End 
Network Table definition for terminal): 
blank or X’00’--no override (default) 
C’D’--Dl response 
C’E’--El response 
C’'F’--D2 response 
C’G’--E2 response 


Bytes 3 and 4: Not used (set to blanks or binary zeros). 


FESENDC return codes and possible recovery actions are listed in Figure 


47. A nonzero return code means the message was not queued for the 
Front End. Return codes 16-24 should only occur during subsystem 
testing. 


ane tenet nt er en A 


Message queued successfully. 


Queue-full condition encountered; attempt a retry 
by invoking FESEND again. 


Low-core condition encountered; attempt a retry 
by invoking FESEND again or return to Intercomn. 
(See Figure 14.) 


I/O error (see Figure 14) encountered on disk 
queue; return to Intercomm. 


Invalid terminal-ID; no recovery action required. 
Check with System Manager to verify terminal/ 
broadcast group named in MSGHTID field. 


Invalid VMI or syntax error in Front End control 
or command message text. 


Invalid message header; return to Intercomn. 
See also error message MG602I and Snap 51. 


Figure 47. FESENDC Return Codes 
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9.6 USER LOG ENTRIES (LOGPUT) 


An application subsystem may require entries on the system log 
for many different situations: 


e Application-dependent security violation or other error 
recording. 


e Log entries rather than snaps used to trace the progress of a 
message while testing. 


® Any application-oriented requirement for a record on the 
system log. 


® Before- and/or after-image records of file updates (if not 
using the Intercomm File Recovery special feature). 


User log entries are identified by unique codes in the message 
header log code field (MSGHLOG) and hence can be recognized by any 
batch program processing the log off-line. Messages to be logged 
consist of a standard 42-byte header and message text. The log code 
field (MSGHLOG) in the message header must be set to any value from 
X'41’ to X'6F’. Logging is performed by calling the Intercomm system 
service routine LOGPUT. The date and time stamp in the message header 
(MSGHDAT and MSGHTIM) will be updated by LOGPUT prior to writing to the 
log. Log entries may subsequently be suppressed for later Intercomm 
executions by modifying the LOGTROUT translate table in the LOGPUT 
routine. Any message having a log code in the header which translates 
to X'FF’ will not be logged. 


The length of the record on the log is controlled by the value of 
MSGHLEN in the message header and must be at least 42. LOGPUT will not 
write out messages longer than the logical record size of the log (see 
INTERLOG JCL description in the Operating Reference Manual). 

Coding format: 
CALL ‘COBREENT’ USING LOGPUT, message. 


where: 


message is the label of the message (header plus text) to be 
logged. 


There is no return code from LOGPUT. 


104 


2 


Chapter 9 Using Intercomm Service 
Routines and Facilities 


9.7 CALLING USER SUBROUTINES FROM REENTANT COBOL SUBSYSTEMS 


All subroutines called by an application subsystem must be called 
via COBREENT. Passed parameter values must be in 24-Amode storage (such 
as the caller's DWS), except they may be in the Working-Storage of a VS 
COBOL II caller. No other special conventions need be followed in order 
to call: 


® An Intercomm system service routine. 
® A user-coded Assembler Language (BAL) subroutine. 
e A user-coded COBOL subroutine. 


e A data base interface routine. 


9.7.1 Defining User Subroutines to Intercomm 


A user-coded subroutine (Assembler Language or COBOL) must be 
defined to Intercomm via coding of a SUBMODS macro in a user member 
USRSUBS which is copied at the end of the subroutine table REENTSBS 
(before REENTEND) at assembly time (see Figure 43). Resident, 
reentrant Assembler Language subroutines are defined by the NAME 
parameter of SUBMODS, all others via the LNAME parameter, plus 
additional parameters defining language, residency, etc. Additionally, 
the routine’s reference name and corresponding index code should be 
added to ICOMSBS (see Appendix B) for easy access by subsystems when 
calling COBREENT. The SUBMODS macro is described in Basic System 
Macros. 


9.7.2 Interfacing to User-Coded Assembler Language Subroutines 


Assembler Language subroutines must be coded as reentrant if they 
may give up control to the Intercomm Dispatcher (via I/O requests, MMU 
requests, message queuing, etc.). When called from a COBOL program via 
COBREENT, standard linkage conventions are used. COBREENT issues a 
MODCNTRL macro to link to non-resident Assembler subroutines. At 
entry, register 13 points to the beginning of a 256-byte link/save area 
which precedes the DWS acquired for the COBOL program. Therefore, the 
caller’s registers must be saved on entry to the Assembler subroutine, 
and reloaded before return, and save area chaining must be done. The 
COBOL link/save area may not otherwise be used by a called subroutine. 
An Assembler subroutine may not call a COBOL subroutine. 


9.7.3 Interfacing to User-coded COBOL Subroutines 


A reentrant COBOL subroutine is coded like a COBOL subsystem in 
that it uses a Linkage Section and a Dynamic Working Storage area, and 
it calls COBREENT to interface to Intercomm service routines and other 
user subroutines. Non-resident reentrant COBOL subroutines loaded 
above the 16M line under Release 10 must use the coding conventions 
described in Chapter 3. Subroutine calls may be nested, but must 
return to the caller, as illustrated previously in Figure 5. 
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The Linkage Section may optionally contain definitions for the 
input message (if not previously freed via a MAPIN call), the SPA, the 
SCT (SYCTTBL entry for the calling subsystem), and the Intercomm return 
code system parameter areas. Any, or all, of these parameters (in the 
above order) are requested via the SUBMODS macro definition of the 
subroutine. These must be the first 01 level definitions in the 
Linkage Section. The required Dynamic Working Storage area is defined 
via the GET parameter of the SUBMODS macro. The 01 level definition 
for the dynamic working storage area is coded after the system 
parameters (if requested) and before the O01 level definitions for 
parameters passed by the caller. 


The Intercomm return code area may be used to pass a return code 
back to the calling COBOL subsystem because both the subroutine and the 
subsystem are referencing the same area via Linkage Section 
definitions. The subsystem may pass that return code back to the 
Intercomm Monitor (if standard Intercomm return code conventions are 
used by the subroutine) or may take action based on the return code and 
then change the passed value in the return code area to a standard 
Intercomm return code value. See the sample programs in Chapter 10. 
Coding conventions for subroutine interfaces prior to Intercomm Release 
9.0 are defined in Appendix D. 


9.8 FRONT END CONTROL MESSAGES 


The Front End Control Message (FECM) facility provides three 
types of Front End control messages which may be used by application 
subsystems for: 


® Front End data queuing (FECMDDQ) 
@ Front End feedback messages (FECMFDBK) 
e Front End queue release (FECMRLSE) 


A FECM is generated by an application program call to a service 
routine. The generated FECM message text is complete. The header 
field MSGHLEN has been set; bytes 3-42 are not modified. If the user 
has copied a valid header to the FECM message area prior to the call, 
only the sending subsystem codes (SSCH,SSC) and the VMI (X'57’) must be 
set. The generated FECM must then be passed to the Front End by a call 
to FESENDC in the application program. 


After a call to any Front End Control Message facility, a return 
code is placed in the first byte of the status word: 


ae OS RS SS ST —————s 


Return Code Value 


a eS re ers —— ay NE ae 


FECM successfully created 


No storage for FECM processing (Assembler only) 
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9.8.1 Front End Data Queuing 


Front End data queuing (FECMDDQ) works in conjunction with the 


Dynamic Data Queuing Facility. It provides the user with a more 
efficient way of handling groups of related output messages. An 
application may pass a Dynamic Data Queue (DDQ) to the Front End via a 
FECM. The DDQ contains messages to be sent to a terminal. This is a 


more efficient design approach than sending one message at a time to 
the Front End via FESEND, and prevents interleaving of unsolicited 
messages with those on the DDQ. This feature is particularly useful 
for printed reports. The messages on the DDQ must be preformatted 
(VMI=X'57") or fully formatted (VMI=K’67’). The Dynamic Data Queuing 
Facility manual contains detailed information on DDQ concepts, 
facilities and implementation, and specific design considerations for 
Front End Data Queuing. MMU uses this facility (FECMDDQ), when 
requested for multipage printer output. Coding format: 


CALL 'COBREENT’ USING FECMDDQ, status-word, fecm-area, 
ddq-id[{, ddq-disp]. 


where: 


Status-word is a 4-byte (fullword aligned) area required by the 


facility. 

fecm-area is a 112-byte area to contain the FECM (header and 
text). The user should initialize the header prior to the 
call, probably by copying the input message header to this 
area. 


ddg-id is the sixteen (16) byte DDQ identifier. 


ddq-disp is a one-byte code indicating DDQ disposition after all 
messages are transmitted: 


C’S’ means SAVE the DDQ (required if MSGHTID is a broadcast 
group name) 


C’F’ means FREE the DDQ (default) 


NOTE: The ddq-disp parameter may be omitted if the DDQ is to be freed 
after all the messages are transmitted (default). All of the 
above parameters must be in the DWS if the calling program is 
loaded above the 16M line. 


9.8.2 Front End Feedback Messages 


This type of FECM (FECMFDBK) is used by an application to 
determine that all prior messages queued for a terminal (before the 
FECM) have been transmitted. In this way, an application subsystem can 
be notified that certain critical messages have indeed been 
successfully transmitted. 
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Subsystem logic creates all normal output messages and passes 
them to the Front End (via FESEND, MMU, or by queuing messages for 
Output). Generation of a feedback message is then requested by a call 
to a FECM service routine. The feedback message is then processed in 
the same way as the other messages for the terminal (queued via FESENDC 
or the Output Utility). When the Front End retrieves the feedback 
message, it is routed to the subsystem specified when the feedback 
message was generated rather than to the destination terminal. 


Feedback messages may also be used in conjunction with Front End 
Data Queuing. A feedback message could be an intermediate, or the 
last, message on a DDQ passed to the Front End. If the DDQ was created 
via MMU (a MAPEND call option), then the feedback FECM must be created 
and queued by the subsystem on return from the MAPEND call. Coding 
format: 


CALL 'COBREENT’ USING FECMFDBK, status-word, fecm-area, 
fecm-rsc, fecm-text. 


where: 


Status-word is a 4-byte (fullword aligned) area required by the 
facility. 


fecm-area is a 78-byte area to contain the FECM (header and text). 
The user should initialize the header area prior to the call, 
probably by copying the input message header to this area. 


fecm-rsc is a two-byte receiving subsystem code (high/low) to 
specify the feedback message destination subsysten. 


fecm-text is a 16-byte area containing the desired feedback 
message text. 


9.8.3 Front End Queue Release 


This type of FECM (FECMRLSE) allows the subsystem to override the 
normal Front End Logic for CRTs, which requires a one-for-one 
correspondence between input and output messages. When the release 
FECM is processed by the Front End, it causes a subsequent response 
message queued for the same terminal (as identified by MSGHTID in the 
FECMRLSE message header) to be transmitted immediately, rather than 
waiting for input (RLSE command) from the terminal operator. Because 
of protocol restrictions (HDFF) on VTIAM Front End IBM SDLC 3270 CRT 
processing, the CRT release option for the first call to FESEND should 
be used (see Section 9.5) as a release; because if the terminal is 
already in send mode, it is necessary to turn the line around before 
sending the released message, which may confuse the terminal operator. 
The CRT release option locks the terminal in receive mode, preventing 
new input by the operator. 


A release FECM might be used if a subsystem queues more than one 
output message to the CRT terminal due to a considerable amount of 
processing (file/data base I/0) being necessary between messages. The 
first message might be an immediate response to the terminal operator 
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indicating the input request is being processed, but allowing new input 
by the operator. Then, the second message (following the release FECM) 
is the ultimate result of the requested processing. A release FECM 
could also be used to force immediate transmission of a critical 
message to another CRT (other than the input terminal). Such 
processing should be used with caution because unsolicited messages can 
cause confusion for the terminal operator and may clear an existing 
screen format or displayed message. Coding format: 


CALL ’COBREENT’ USING FECMRLSE, status-word, fecm-area. 
where: 


status-word is a 4-byte (fullword aligned) area required by the 
facility. 


fecm-area is a 60-byte area to contain the FECM (header and text). 
The user should initialize the header area prior to the call, 
probably by copying the input message header to this area. 


9.9 IN-CORE TABLE SORT FACILITY (INTSORT) (Release 10 only) 


If the Table Facility is not used to create an in-core table, 
then to sort a user in-core table, the INTSORT Facility (entry point 
INTSORTC for COBOL) is provided. Such a table might contain data 
stored in Store/Fetch strings or file data record via online 
transactions or offline processing. The table can have any number of 
fixed-length entries, and each entry can have a total size of 1 to 
32767 bytes. The key to be sorted on can be anywhere within the first 
256 bytes of the entry, but must be in the same place, and of the same 
length, in each entry. Coding format: 


CALL 'COBREENT’ USING INTSORTC, entries, entry-length, table, 
key-offset, key-length, return-code. 


where: 


entries is a 4-byte (fullword aligned) area containing the number 
of table entries in binary format. 


entry-length is a 4-byte (fullword aligned) area containing the 
size of each entry (up to 32767) in binary format. 


table is the name of the area containing the table to be sorted. 


key-offset is a 4-byte (fullword aligned) area containing the 
offset (-1) in binary format of the key within each entry (value 
must be Q if key at the beginning of the table entry; 1 if it 
Starts in the second position of the table entry, etc.). May be 
OQ to 255. 


key-length is a 4-byte (fullword aligned) area containing the 
length in binary format of the key (to be sorted on) of each 
entry (can be the same as entry-length). Length may be 1 to 256 
depending on key-offset (key-offset+key-length must be less than 
257). 
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return-code is a 4-byte (fullword aligned) area to contain the 
return code (in binary in the low-order byte) from INTSORTC, as 
follows: 


Meaning 


iamnanwagnn pula aii CTI TERN WN pe a eS ee San 


INTSORT completed successfully (no duplicate keys) 


Number of entries less than 1 or table size greater than 16M- 
Length of an entry is less than 1 or greater than 32767 

No Table name (address) supplied 

Key-offset greater than 255 

Key-length plus key-offset exceeds 256 bytes 


Successfully sorted table contains duplicate keys (entries). 


For all non-zero return codes except 24, the sort is not executed. 


9.10 OTHER INTERCOMM SERVICE FACILITIES 


The following service routines for application programs are 
accessed via the following subroutine entry names listed in REENTSBS: 


@ MMU (MAPIN, MAPOUT, MAPEND, MAPCLR, MAPURGE, MAPFREE) 

© Store/Fetch (INTSTORE, INTFETCH, INTUNSTO) 

@ DDQ (QBUILD, QOPEN, QREAD, QREADX, QWRITE, QWRITEX, QCLOSE) 
e Page Facility (PAGE) 

e DBMS (DBINT) - data base interfacing 

® Dynamic File Allocation (ALLOCATE, ACCESS) 


@ Table Facility (TABUILD, TABOPEN, TABPUT, TABGET, TABSORT, 
TABEND) 


e LU6.2 transaction invocation (INITLU6) 


Code names for all routines are provided in the COPY member ICOMSBS 
(see Appendix 8B). Detailed documentation for use of the above 
facilities is provided in separate manuals (see Chapter 2). Special 
coding and call conventions for specific data base support are 


described in Data Base Management System Users Guide and vendor 
manuals. 
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Other service routines described at the end of Chapter 2 and in 
the Assembler Language Programmers Guide such as binary table search, 
ESS user-id search, dispatcher related routines, and data field search 
routines (when Edit and Output Utilities used), can be accessed by 
adding the entry name to USRSUBS with a SUBMODS macro (use NAME 
parameter only) and adding the name and offset code to ICOMSBS. 


9.10.1 Features Accessible via Assembler Macros 


Several Intercomm facilities are accessible only via a call to an 
assembler-coded subroutine which issues an Intercomm macro to use the 
facility. Such features include: 


© Enqueue/Dequeue--to request exclusive or shared control of a 
resource (INTENQ, INTDEQ) 


e Start/Stop--function control or status test (SSSTART, SSSTOP, 
SSTEST) 


e Write-to-operator--to issue a message to the CPU console 
(PMIWTO, PMIWTOR) 


© Snap--to issue a snap of the passed program areas for 
debugging if DWSSNAP not used (Release 10 - see Chapter 3) 
(PMISNAP) 


® Timed wait--to request a timed delay of subsystem processing 
if IJKDELAY not used (see Chapter 2) (INTIWAIT) 


e Asynchronous processing--dispatch a time-delayed routine, 
post or wait on an asynchronous processing routine (DISPATCH, 
INTPOST, INTWAIT) 

® Acquire current time and/or date (INTTIME, GETDATE) 


e Acquire device-dependent information about a terminal 
(EXTERM) 


e Track user accounting information for SAM (USRTRACK) 


® Convert hexadecimal fields to printable character (LAYOUT, 
HEXCON) 


@ Format subsystem codes for printing (SSCONV) 


e Test authority of the currently signed-on (under ESS) user to 
use a logical function, such as Data Base access (SECTEST). 


Note that use of most of these facilities will add to subsystem 
processing time (increase TCTV). Further documentation may be found in 


the Assembler Language Programmers Guide and Basic System Macros. 
GETDATE macro may only be used under Release 10. 
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SAMPLE PROCESSING PROGRAMS 


The sample program SQCOBOLA, shown in Figure 48, demonstrates 
coding of an OS/ANS COBOL subsystem which is either resident or 
dynamically loadable below the 16M line. To be eligible for loading 
above the 16M line, the MMU map group and map names would have to be 
copied to fields added to the DWS, and those new fields referenced for 
MMU calls which need those names in the passed parameter list. 


The program processes an inquiry transaction (MURQ) containing a 
part number and a warehouse number for a stock status display. MMU is 
used to transform the incoming message into a fixed field format. The 
part number is transformed into a RBN for accessing a BDAM part 
description file (PARTFILE). The RBN and a part description record 
area are passed as parameters to a called (via COBREENT) COBOL 
subroutine SQCOBOLB, illustrated in Figure 49, which is eligible for 
residence anywhere. The subroutine retrieves the requested record from 
PARTFILE and passes back the File Handler return code to the calling 
subsystem via the Intercomm return code field. 


Together, the part number and warehouse number provide a VSAM key 
for accessing a stock status file (STOKFILE). The File Handler is used 
for accessing both files. MMU is used for formatting an output 
display. Error messages, for conditions such as non-existent or 
erroneous warehouse or part numbers, or file I/O errors, are built 
within the program and formatted by MMU using an error map area. 


The ICOMSBS, ICOMINMG and ICOMDWS basic Release 10 (see Appendix 
B) source text members defining the service routine pointers and 
Intercomm message header fields are COPY’d by the COBOL compiler. The 
COBLOGCH source text member used for terminal attribute and command 
override for MMU processing, and the symbolic map areas, are also 
copied into the program. 


All required table entries, JCL, sample input messages and 
testing procedures, plus sample execution output, are illustrated in 


Chapter 11, "Subsystem Testing." The subsystem code used in the 
SYCTTBL macro to identify the sample subsystem is RQ. Intercomm’s BTAM 
simulator is used for testing. Test messages are included to test as 


‘Many error combinations as possible. 


Chapter 12 illustrates a similar subsystem (without the COBOL 
subroutine) coded for the same purpose but using the Edit and Output 
Utilities, a COBPUT call, and Test Mode for testing. Chapter 13 
illustrates SQCOBOLA redesigned for the VS COBOL II compiler (DWS 
fields moved to Working-Storage), and defines changes to Chapter 11 for 
testing in the VS COBOL II environment. 
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PP 5$740-CB1 RELEASE 2.4 IBM OS/VS COBOL 


00001 000100 IDENTIFICATION OIVISION. 00010000 
00002 000200 PROGRAM-ID. SOCI9BOLA. 00020000 
0Cc003 000300 ENVIRONMENT OIVISION. 00030000 
00004 000400 DATA OIVISION. 00040000 
00005 000500 WORKING-STORAGE SECTION. 00050000 
00006 00csé00 77 SLASH PIC x VALUE °/', 00060000 
00007 000700 77 80AmM-R£a0-GCOD PIC x VALUE "O°. 00070000 
00008 000800 77 V¥SA%-REs0-G000 PIC x VALUE ‘Vv, 00080000 
00009 000900 77 OO-STOCK PIC x(8) VALUE "STOKFILE’. 00090000 
00010 001000 77 DO-PART PIC X¢8) VALUE "PARTFILE®. 00100000 
00011 001100 01 [0-GROCUP=NaAmE PIC x(6) VALUE "STKSTAT*. 00110000 
00012 001200 O01 I0-MAP-NAME PIC x(8) VALUE "MAPL*, 00120000 
00013 001300 01 ERR-MAP-NAME PIC x8) VALUE °ERRMAP®, 00130000 
00014 001400 O01 MESSAGE-TABLE. 00140000 
00015 001500 04 mSG-A PIC X(12) VALUE *PART NUMBER °, 00150000 
o00lé 001600 04 mSG-8 PIC X(€11) VALUE © NOT FOUND.®. 00160000 
00017 001700 04 MmSG=C PIC x(5) VALUE "PART °, 00170000 
00018 001800 04 mSG-0 PIC x(24) VALUE 00180000 
00019 001900 * NOT FOUND IN WAREHOUSE *. 00190000 
00020 002000 04 MSG-E PIC X€20) VALUE °. MESSAGE CANCELLEDO.®. 00200000 
00021 002100 04 MSG-F PIC X€17) VALUE "MAP ERROR MCW IS °. 00210000 
00022 002200 04 MSG-G PIC X(€36) VALUE 00220000 
00023 002300 *INVALIC OaTa: PARTNO MUST BE NUMERIC®. 00230000 
00024 002400 04 MSG-H PIC x€35) VALUE 00240000 
00025 002500 *INVALIO OaTA: WHSNO MUST BE NUMERIC’. 00250000 
00026 002600 04 ASG-!I PIC X(46) VALUE 00260000 
00027 002700 "INVALID OaTA: PARTNC AND WHSNO MUST BE NUMERIC®. 00270000 
00028 002800 Gl LOGICAL=OEVICE-OCESCRIPTION CCPY COSLOGCH. 00280000 
00029 C Ol COGICAL-DEVICE-DESCRIPTION. 
00030 C O02 UAN PICTURE X VALUE * °. 
00031 C OZ UANMOT PICTURE X VALUE * °, 
00032 C O02 UANSEL PICTURE X VALUE ° °. 
00033 C O02 UANMOSEL PICTURE X VALUE ° °, 
00034 C O02 UAMSEL PICTURE X VALUE * °, 
00035 C O02 UAHMDSEL PICTURE X VaLUE * °, 
0003é C O02 UAX PICTURE x VALUE ° °, 
00037 C O02 UAXMOT PICTURE X VALUE ° °, 
00038 C O2 UNN PICTURE X VALUE ° °. 
00039 ¢ O2 UNNMDT PICTURE X VALUE ° °,. 
00040 C O02 UNNSEL PICTURE X VALUE * °. 
00041 C O02 UNNMOSEL PICTURE X VALUE * *, 
00042 C€ O02 UNHMSEL PICTURE X VALUE ° *,. 
00043 ¢ O02 UNHMOSEL PICTURE X VALUE * °, 
00044 C OZ UNX PICTURE X VALUE ° °, 
00045 C O02 UNXMOT PICTURE X VALUE ° *, 
o00dgsé C O02 PAN PICTURE xX VALUE ° *, 
00047 C O02 PANMDT PICTURE X VALUE * °, 
00048 C O2 PANSEL PICTURE X VALUE ° °, 
oco4s C O02 PANMOSEL PICTURE X VALUE * °, 
00050 C O02 PaHSEL PICTURE X VALUE ° *. 
00051 C O02 PAHMDSEL PICTURE X VALUE * °, 
00052 C 02 Pax PICTURE X VALUE ° °. 
00053 C O02 PAXMOT PICTURE X VALUE ° °, 
00054 ¢ O2 PSN PICTURE X VALUE ° a 

Figure 48. Sample Reentrant Subsystem (IBM ANS COBOL) (Page 1 of 14) 
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PSNMDOT PICTURE XK VALUE ° 
PSNSEL PICTURE X VALUE ! 
PSNMDOSEL PICTURE X VALUE 
PSHSEL PICTURE XK VALUE ° 
PSHMOSEL PICTURE X VALUE 
PSX PICTURE X VALUE ° °, 
PSXMOT PICTURE X VALUE ° 
SUPR PICTURE X VALUE °* ° 
WRITEL PICTURE X VALUE ° 
ERASWRIT PICTURE X VALUE 
ERASWRAL PICTURE X VALUE 
RMDT PICTURE X VALUE °* °* 
RKEYBO PICTURE X VALUE ° 
RMOTKEY8 PICTURE X VALUE 
ALARM PICTURE X VALUE ° 

ALRMRMOT PICTURE X VALUE 
ALRMRKEY PICTURE X VALUE 
ALRMRMKY PICTURE X VALUE 
PRNTNL PICTURE X VALUE ° 
PRNT4SO PICTURE X VALUE ° 
PRNT64 PICTURE X VALUE ° 
PRNT8O PICTURE X VALUE ' 
PRNLRMOT PICTURE VALUE 
PRGORMOT PICTURE VALUE 
PRO4RMOT PICTURE VALUE 
PREBORMOT PICTURE VALUE 
PRNLRKEY PICTURE VALUE 
PR&ORKEY PICTURE VALUE 
PROSRKEY PICTURE VALUE 
PRBORKEY PICTURE VALUE 
PRNLRAKY PICTURE VALUE 
PR4SQRMKY PICTURE VALUE 
PR&SGRAKY PICTURE VALUE 
PRBORMKY PICTURE VALUE 
PRNLALRM PICTURE VALUE 
PRSOALREF PICTURE VALUE 
PRESALRA PICTURE VALUE 
PROOALRME PICTURE VALUE 
PRNLARMO PICTURE VALUE 
PREOARMD PICTURE VALUE 
PRO4ARMO PICTURE VALUE 
PRBEOARMD PICTURE VALUE 
PRNLARKY PICTURE VALUE 
PRSOARKY. PICTURE VALUE 
PROSARKY PICTURE VALUE 
PRBOARKY PICTURE VALUE 
PRNLAMKY PICTURE VALUE 
PRSOAMKY PICTURE VALUE 
PQESAMKY PICTURE VALUE 
PREOAMKY PICTURE VALUE 
NULL PICTURE X VALUE * ° 
NL PICTURE xX 

FF PICTURE X 

CR PICTURE Xx 

SI PICTURE x 
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Figure 48. Sample Reentrant Subsystem (IBM ANS COBOL) (Page 2 of 14) 
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OC1l11 002900 01 COBREENT=CODES COPY ICOMSBS. 00290000 
00112 Ol COBREENT-CODES. 00001000 
00113 THESE CODES REPRESENT OFFSETS FOR ROUTINE ADDRESSES IN THE 00002000 
00114 TABLE NAPED REENTSBS. ONLY THE MOST COMMONLY USED VALUES 00003000 
00115 ARE INCLUDED HERE; THE USERS MANUAL HAS A COMPLETE LIST. 0004000 
00116 IF OFFSET ODO, THEN TRUE OFFSET#==(OFFSET#1) 00005000 
00117 05 INTSORTC PIC COMP VALUE 99. 00005300 
00118 05 DWS-SNAP PIC COMP VALUE 95. 00005400 
00119 05 MAPFEREE PIC COMP VALUE 91. 00005500 
00120 0S FECMRLSE PIC COMP VALUE 87. 00006000 
00121 05 FESEND PIC COMP VALUE 83. 00007000 
00122 05 FESENDC PIC COMP VALUE 79. 00008000 
00123 05 OYN-ALLOCATE PIC COMP VALUE 75. 00009000 
00124 05 DYN-ACCESS PIC COMP VALUE 71. 00010000 
00125 05 MAPURGE PIC COMP VALUE 67. 00011000 
00126 05 MAPCLR PIC COMP VALUE 63. 00012000 
00127 05 MAPENO PIC COMP VALUE 59. 00013000 
0c128 0S MmAPOUT PIC COMP VALUE 55. 00014000 
00129 05 MAPIN PIC COMP VALUE 51. | 00013000 
00130 05 INTUNSTO PIC COMP VALUE 47. 00016000 
00131 05 INTSTORE PIC’ COMP VALUE 43. 00017000 
00132 0S INTFETCH PIC COMP VALUE 39. 00018000 
00133 0S FECMFDSK PIC COMP VALUE 35. 00019000 
00134 05 FECMDDO PIC COMP VALUE 31. 00020000 
00135 05 DQ-WRITEX PIC COMP VALUE 27. 00021000 
00136 DQ-RE ADX PIC COMP VALUE 23. 00022000 
00137 DO-wRITE PIC COMP VALUE 19. 00023000 
00138 DQ-READ PIC COMP VALUE 15. 00024000 
00139 DQ-CLOSE PIC COMP VALUE 11. 00025000 
0014¢ DQ-OPEN PIC COMP VALUE 07. 00026000 
00141 DQ-aUILD PIC COMP VALUE 03. 00027000 
00142 FH=SELECT PIC COMP VALUE 4. 00028000 
00143 FH-RELEASE PIC COMP VALUE 8. 00029000 
00144 FH=READ PIC COMP VALUE 12. 00030000 
00145 FH=WRITE PIC COMP VALUE 16. 00031000 
00146 FH=GET PIC COMP VALUE 20. 00032000° 
00147 FH=PUT PIC COMP VALUE 24. 00033000 
00148 FH-RELEX PIC COMP VALUE 28. 00034000 
00149 FH-FEOV PIC COMP VALUE 32. 00035000 
00150 COBPUT PIC COMP VALUE 68. 00036000 
00151 MSGCOL PIC COMP VALUE 72. 00037000 
00152 COBSTORF PIC COMP VALUE 76. 00038000 
00153 CONVERSE PIC COMP VALUE 80. 000390C0 
00154 OBINT PIC COMP VALUE 84. 00040000 
00155 LOGPUT PIC COMP VALUE a8. 00041000 
00156 PAGE-FILE PIC COMP VALUE 92. 00042000 
00157 FH=GETV PIC COMP VALUE 9%. 00043000 
00158 FR=PUTY PIC 999 COMP VALUE 100. 00044000 
00159 CODES 104 AND UP INDICATE USER ADDITIONS TO THE TABLE 00045000 


ANAAAAAAAANAA NAN AANAAANDAAAAANAANAAAAANAAANAAANAANANAANANANANAANN 


00161 003000 05 SacosdoLs PIC 999 COMP VALUE 104. 00300000 
00142 003100 OL FILLER PIC x422) VALUE 00310000 
00163 003200 ‘END OF WORKING STORAGE. 00320000 


Figure 48. Sample Reentrant Subsystem (IBM ANS COBOL) (Page 3 of 14) 
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00165 
00166 
0016? 
00168 
0016S 
0017C 
00171 
00172 
00173 
00174 
00175 
00176 
0017? 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
00188 
00189 
0c190 
00191 
00192 
00193 
00194 
00195 
00196 


00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
0020? 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
oo2zlé 
00217 
00218 
00219 
oo22c 
00221 


Figure 48. 


ANANANANANAANAANANAANAANANAARAAANAANNAANANAN 


AAAANAAAAANAAANAANNANDA 


003300 LINKAGE SECTION. 
INPUT“MESSAGE COPY ICOMINACG. 


003400 01 
01 


003500 
003600 
003700 Ol 
003600 Ol 
003900 Ol 
004000 01 
O1 


INPUT=HE 


SSAGE. 


04 MESSG-HOR. 


06 MSGH-LENGTH 
06 MSGH=-OPR 
06 MSGH-RSCH 
06 MSGH-RSC 
06 MSGH-SSC 
06 MSGH-AMN 
06 MSGH-DATE. 
0&8 MSGHe-YR 
08 MSGH-PERTOD 
08 MSGH-JULIAN 
06 MSGH-TIME. 
08 MSGH-HH 
08 MMSGH-AM 
O08 MSGH-SS 
08 MSGH-TH 
O08 MSGH-TI1 
0&8 MSGH-TI2-3 
08 MSGH-T 14-5 
06 MSGH-CON 
06 MSGH-FLGS 
06 MASGH-BAN 
0&6 MSGH-SSCH 
Q6 MSGH—-USR 
06 MSGH-ADDR 
06 MSGH-LOG 
0&6 ASGH-BLK 
06 MSGH-VAI 
O2 INPUT-TEXT. 

04 INPUT-VERB PIC 
ICOM=-SPA PIC 
(COmM=-SCT PIC 
ICOM=-RE TURN PIC 


OYNAMIC- 


O02 oOUTP 


WORK=-SPACE. 
UT=MESSAGE. 


04 OFPESSG-HOR. 


06 


OMSGH-LENGTH 
OMSGH=-QPR 
OMSGH-RSCH 
OMSGH-RSC 
OMSGH-SSC 
OMSGH-AMN 
OMS GH-DA TE e 
08 OMSGH-YR 


-OayY 


X(4). 
x(500). 
x(100). 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


$9(7) COMP. 
DYNAMIC=“WORK=-SPACE COPY ICOMOwS. 


O08 OMSGH-PERIOO 


08 OMSGH-JUL TA 
OMSGH-TIME. 

08 OMSGH-HH 

08 OMSGH-AA 

O08 OMSGH-S5 

08 OMSGH-TH 


N-DAY 


Sample Reentrant Subsystem 
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PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 


Sample Processing Programs 


$9999 COMP. 
Xe 
Xe 


99. 


$9999 COMP. 


$9999 COMP. 


(IBM ANS COBOL) 


00330000 
00340000 
00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
0000 2300 
00002350 
00002400 
00002500 
00002600 
00002700 
00002750 
00002800 


00350000 
00360000 
00370000 
00380000 
00390000 
00400000 
00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 


(Page 4 of 14) 


Chapter 10 
00222 € O& OMSGH-TID. 
00223 C 08 OMSGH-TI1 PIC X. 
00224 ¢ 08 OMSGH-TI2-3 PIC XX. 
00225 C 08 OMSGH-TI4-5 PIC 99. 
00226 C 06 OMSGH-CON PIc 59999 COMP. 
00227 C 06 OMSGH-FLCS PIC X(2). 
00226 C 06 OMSGH-8AN PIC xX(3). 
00229 C 06 OMSGH-SS$CH PIC X. 
oo23¢c C O06 OFSGH-USR PIC X. 
00231 C O& OMSGH-ADOR PIC XX. 
00232 C 06 OMSGH-LOG PIC X. 
00233 C 06 OMSGH-B8LK PIC X. 
00234 C Q6 OMSGH-VMI PIC X. 
00236 004100 O2 SYMBOLIC-MAP. 
00237 004200®SCOPY STKSTATS 
00238 004300 03 MAPl. 
00239 004400 O05 VERBF. 
00240 004500 06 VERBL PIC 914) COMP. ' 
00241 004600 06 VERBT PIC X. 
00242 004700 06 VERB PIC X(4). 
00243 004800 04 PAaRTNOF, : 
00244 004900 05 PARTNOL PIC 9(4) COMP, 
00245 005000 O05 PARTNOT PIC X. 
00246 005100 05 PARTAC. 
00247 005200 06 FILLER PIC S9(4). 
00248 005300 06 RBNBYTE PIC $9. 
00249 005400 04 USEGL. 
0025C 005500 05 WHSNOF,. 
00251 0c5600 06 WHSNOL PIC 9(4) COMP. 
00252 005700 06 WHSNOT PIC X. 
00253 005800 06 WHSNO PIC $999. 
00254 005900 05 PRTODATAF. 
00255 006000 06 PRYDATAL PIC 9(4) COMP. 
00256 006100 06 PRTIDATAT PIC X. 
00257 006200 06 PRTDATA PIC X(54). 
00258 006300 05 OROUNTF. 
00255 006400 06 ORDOUNTL PIC 9¢4) COMP, 
00260 €06500 06 ORDUNTT PIC xX, 
00261 006600 06 ORDUNT PIC X(5). 
00262 006700 05 PRYPRCF, 
00263 006800 06 PRTPRCL PIC 9(4) COMP, 
00264 006900 O06 PRTPRCT PIC X. 
00265 007000 06 PRITPRC PIC $999¥V9(4) COMP-3. 
00266 007100 05 wWHSLOCF. 
O0C26?7 007200 06 WHSLOCL PIC 9(4) COMP. 
00268 C07300 06 WHSLOCT PIC xX. 
00269 007400 06 WHSLOC PIC xX(23}). 
00270 007500 O05 STKLEVF. 
00271 007600 O06 STKLEVL PIC 9(4) COMP, 
00272 007700 06 STKLEVT PIC X. j 
00273 cc7800 06 STKLEV PIC $907) COMP-3. 
00274 007900 O05 LEVOATEF. 
00275 008000 O06 LEVOATEL PIC 9(4) COMP. 
00276 008100 06 CEVDATET PIC X. 
00277 008200 06 LEYDATE PIC X(8}. 
0C278 008300 O5 STKCROF,. 
Figure 48. Sample Reentrant Subsystem (IBM ANS COBOL) (Page 5 of 14) 
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00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002450 
00002500 
00002600 
00002700 
00002750 
00002800 
00002900 


00410000 
00420000 
00430000 
00440000 
00450000 
00460000 
00470000 
00*80000 
00490000 
00500000 
00510000 
00520000 
00530000 
00540000 
00550000 
00560000 
00570000 
00580000 
00590000 
00600000 
00610000 
00620000 
00630000 
0064000Q 
00650000 
00660000 
00670000 
00680000 
00690000 
00700000 
00710000 
00720000 
00730000 
00740000 
007500C0 
00760000 
00770000 
00780000 
00790000 
00800000 
00810000 
00820000 
00830000 


Chapter 10 Sample Processing Programs 


STKORDL PIC 914) COMP, 00840000 
00850000 
008660000 
00870000 
00880000 
008900CO 
00900000 
00910000 
00920000 
00930000 
00940000 
00950000 
00960000 
00970000 
00980000 
00990000 
01000000 


008400 06 
008500 06 STKOROT PIC xX. 

008600 06 STKORD PIC $9¢7) COMP-3. 
008700 OROCATEF. 

008800 06 OROOATEL PIC 9(4) COMP, 
008900 06 ORODATET PIC X. 

009000 O06 ORDOATE PIC xX(8). 

009100 04 FILLER PIC X(7). 

009200 03 ERRMPAP. 
009300 05 
009400 06 
009500 06 
009600 06 
009700 0% FILLER 
009800 O02 RECORD-AREA. 
009900 04 PART-RECORO. 

010000% NOTE 100 CHARACTER BCAM RECORD WITHOUT KEYS. 


ERRMSGF. 
ERRMSGL PIC 9(4) COMP. 
ERRMSGT PIC X. 
ERRMSG PIC x(50). 
PIC x(7). 


010100 
010200 
010300 
010400 
010500 
010600 
010700 
010800 
010900 
011000 
011100 
011200 
011300 
011400 
011500 
€11600 
011700 


06 P-REC-PART=DATA. 
P-REC=PIN 


08 
08 
08 


P-REC-DES 
PeREC-UNT 


06 P-REC-PRC 


06 P-REC-MFR=-NUM 


06 FILLER 
04 STOCK-RECORO. 
NOTE 80 CHARACTER VSAP RECORD. 


06 DELETE-CHARACTER 
06 S-REC-KEY-FIELO. 


08 
08 


S-REC-WHS 


S~REC-PNO 


06 FILLER 
06 S-REC-STOCK<-DATA. 


08 
08 


SRE C=wWLC 
S@REC@LEV 


PIC xX(5). 
PIC X(54). 
PIC x(5). 
PIC 99V9(4) 
PIC x15). 
PIC xX(17). 


PIC X. 

PIC 9(3). 
PIC 9(5). 
PIC x(26). 


PIC xX(€23). 
PIC 9(7) 


COMP =-3,. 


COMP-3. 


01010000 
01020000 
01030000 
01040000 
01050000 
01060000 
01070000 
01080000 
01090000 
01100000 
01110000 
01120000 
01130000 
01140000 
01150000 
01160000 
01170000 


01180000 
01190000: 
01200000 
01210000 
01220000 


011800 
011900 oe 
012000 08 
0121008 
012200 08 


NOTE S-REC-LEV IS 4 CHARACTERS LONG. 
S“REC-LDT PIC xX(6). 

S-REC-ORD PIC 9(7) COMP -3. 
NOTE S-REC-ORO 1S 4 CHARACTERS LONG. 
S-REC-ODT PIC X(6}. 


Figure 48. Sample Reentrant Subsystem (IBM ANS COBOL) (Page 6 of 14) 
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012300 O02 STaTwD PIC $9(7) Come SYNC. 01230000 
0124002 NOTE THIS PUTS US ONTO A FULLWORD BOUNDARY ALIGNMENT. 01240000 
012500 O02 FH-STATUS REDEFINES STATHWD. 01250000 
012600 04 FrH=STATI PIC Xe 01260000 
012700 88 TOK VALUE Q. 01270000 
012800 88 IQOERROR VALUE l. 01280000 
012900 88 NOT-FOUND VALUE 2. 01290000 
013000 88 NO-00 VALUE 9. 01300000 
€13100 04 FeH=-STAT2 PIC X. 01310000 
013200 04 FILLER PIC X(2). 01320000 
013300 O02 EXTOSCT PIC X(48). 013300C0 
0134002 NOTE WE ARE STILL ALIGNED HERE. 01340000 
013500 O02 RBK-WORD PIC $9(7) 01350000 
013600 O2 RBN~-FILLER REDEFINES RBA-WOFOD. 01360000 
013700 04 FILLER PIC X. 01370000 
013800 04 R&@N PIC X(3).- 013800C0 
013900 O02 CURRENT-FILE PIC X(8). 01390000 
014000 O02 MCH PIC 9$(86) COMP SYNC. 01400000 
014100 O02 MCW-CODE-8YTES REDEFINES MCW. 01410000 
014200 04 MCwWeRETUAN-CODE PIC 014200C0 
014300 B8@ MAPPING-OK VALUE ZERO. 01430000 
014400 88 MAPEND-SUCCESSFUL VALUE ‘8°. 01440000 
C14500 04 MACwW-OPTION=-2 PIC 01450000 
014600 04 wmCw-OPTION-3 PIC 01460000 
014700 04 MCW-OPTION-4 PIC 01470000 
014800 O02 MCw-CODES-PART REDEFINES 01460000 
014900 04 MCw-COOESL=-2 PIC 01490000 
015000 O04 FILLER PIC 015000C0 
015100 02 «MCB PIC 01510000 
015200 O02 KEY-FIELD PIC 01520000 
015300 O02 OaTE-EDIT. 01530000 
015400 PIC 01540000 
015500 PIC 01550000 
015600 PIC 01560000 
015700 DATE-MOVE. 61570000 


Figure 48. 


015800 
015900 
016000 
016100 
016200 


D-M-40 PIC 
SLASH2 PIC 
D-M-OAY PIC 
SLASHL PIC 
D-M- YEAR PIC 
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01580000" 
01590000 
01600000 
01610000 
01620000 


Sample Reentrant Subsystem (IBM ANS COBOL) (Page 7 of 14) 


Chapter 10 Sample Processing Programs 


016300 O02 INVALID-INPUT-MESSAGE, 01630000 
016400 04 &MSG-7 PIC x(50). 01640000 
016500 O2 NO-PART-MESSACE REDEFINES INVALIO-INPUT-MESSAGE. 01650000 
C16600 04 MS5G-1 PIC x(12). 01660000 
016700 04 NOPART-PNO PIC x(5). 01670000 
01&800 04 MSG-2 PIC xX(1l). 01680000 
016900 O02 NOWARES-MESSACE REDEFINES INVALID=INPUT-MESSAGE,. 01690000 
€17000 04 MSG=3 PIC xX(5). 01700000 
017100 04 NOWARES-PNO PIC X(5). 01710CCO 
017200 04 MSG-4 PIC X(24). 01720000 
017300 04 NOWARES=<wHS PIC X(3). 01730000 
017400 O02 CANCEL-MESSAGE REDEFINES INVAL [D-II NPUT=-MES SAGE. 01740000 
017500 04 CaAaN-CODE PIC X(15) JUST RIGHT. 01750000 
017600 04 CAN=-FILE=NAME PIC X(8). 01760060 
017700 04 MSG=5 PIC x(20). 01770000 
017800 O02 MAPPING“ERR=-MESSAGE REDEFINES INVAL ID-INPUT=-MESSAGE. 01780000 
017900 04 MSG-6 PIC X17). 017900C0 
C18000 04 ERROR-TAG PIC X(4). 01800000 
018100 O02 MAP=FLAG PIC X. 01810000 
018200 88 MAaP-GOO0OD e 01820000 
018300 86 MAP-ERR e 01830000 
018400 88 MAP-OQUT-ABORT 01840000 
¢18500 FH=-READ-FLAG 01850000 
018600 88 BD AM-READ-OK 01860000 
018700 68 VSAM-READ-OK 01870000 


Figure 48. Sample Reentrant Subsystem (IBM ANS COBOL) (Page 8 of 14) 
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018900 
019000 
019100 
019200 
019300 


019500 
019600 
019700 
019800 
019900 
020000 
020100 
020200 
020300 
020400 
020500 
020600 
020700 
020800 
020900 
021000 
021100 
021200 
021300 
021400 
021500 
021600 
021700 
021800 
021900 
022000 
022100 
022200 


022400 
C22500 
022600 


022800 
022900 


023100 
C23200 
023300 
023400 
023500 
0236000 
023700 
0238600 
023900 


Figure 48. 


Sample Processing Programs 


PROCEDURE OIVISION USING INPUT-MESSACGE 
ICOM-SPA 
1COM=-SCT 
ICOM=RETURN 
DYNAMIC-WORK=SPACE. 


OLOO-MAIN@-LINE. 
PERFORM 1000-HOUSEKEEP ING. 
PERFORM 2000-HEADER-MOVE. 
PERFORM 3000-MAP-IN. 
MOVE LOW-VALUES TO VERB. 
IF PARTNOT NOT EQUAL TO LOW-VALUES 
OR WHSNOT NOT ECUAL TO LOW-VALUES 
PERFORM S8900-INVALID-INPUT=R TN 
ELSE 
1F NOT MAPPING-OK 
PERFORM 8850-MAPPING-ERR=RTN 
ELSE 
PERFORM 3500-MAP-CLEAR-RIN 
PERFORM 4SOQ00-READ-PART=FILE 
PERFORM 5000-FH=BDAM-READ 
IF BOAM=READ~“OK 
PERFORM 6000-READ-STOCK =FILE 
PERFORM 7000-FH=-VS AM-READ 
IF VSS&M-READ-0K 
PERFORM 8COO-MAP-QUT 
IF NOT MAPPING-CK 
PERFORM 8850-AAPPIAG-ERR-RTNq 
If maP-COOD 
PERFORM 8500-GO00-mMAP-END 
ELSE 
IF MAP-ERR 
PERFORM 8600-ERR-AAP-END. 
GOBACK. 


LOCO“HOUSEKEEPING. 
MOVE +0 TC ICOM-RETURN. 
MOVE 'G* TO MAP-FLAG. 


ZO00-HEADER-MOVE. 
MOVE MESSG=-HOR TO OMESSG-HOR. 


3000-MAP-IN. 

MCVE SPACES TO MCW-CODE-BYTES. 

CALL *COBREENT® USING MAPIN 
MCB 
10-GRCUP-NAME 
IC-MAP -NAME 
INPUT -MESSAGE 
aCw 
AAPL. 


Sample Reentrant Subsystem (IBM ANS COBOL) (Page 9 of 14) 
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018900CO 
01900000 
01910000 
01920000 


- 019300C0 


01950000 
01960000 
01970000 
01980000 
01990000 
02000000 
02010000 
02020000 
02030000 
020400CO 
02050000 
02060000 
02070000 
02080000 
020900006 
02100000 
02110000 
021200C0 
02130000 
02140000 
02150000 
02160000 
02170000 
02180000 
02190000 
022000C0 
02210000 
02220000 


02240000 
02250000 
02260000 


02280000 
022900C0 


02310000 
02320000 
023300C0 
02340000 
02350000 
02360000 
023700C0 
02380000 
02390000 


s 


Chapter 10 


024100 3J500-MAP-CLEAR-R TN, 


024200 
024300 
024400 
024500 
024600 
024700 
024800 
024900 


025100 
025200 
025300 


025500 
025600 
025700 
025800 
025900 
026000 
026100 
026200 
026300 
026400 
026500 
026600 
026700 
026800 
026900 
027000 
027100 
027200 
027300 
027400 


027600 
027700 
027800 
027900 
028000 


Figure 48. 


MOVE SPACES TO MCW-CODE-8YTES. 

MCVE ‘aA TO MCw-OPTION—-4, 

CALL '"COBREENT® USING MAPCLR 
MCW 


10-GROUP -NAME 


TO-MAP-NAME 
MAP] 
OMSGH-T 1d e 


SOCOO-READ-PART-FILE. 


MOVE RBXBYTE TO RBN-WORD. 
MCVE DO-PART TO CURRENT-FILE. 


5000-FH-BDAF-RE AD. 


CALL ‘COBREENT® USING SOCOBOLB 
PART-RECORD 
RBN. 
IF ICOM-RETURN EQUAL 1 
PERFORM 9600-[0-ERRGR-RCUTINE 
ELSE 
IF ICOM-RETURN EQUAL 2 
PERFORM 9700-NOT-FOUND-& TN 
ELSE 
IF ICOM-RETURN EQUAL 9 
PERFORM 9500-A0-DO-ROUTINE 
ELSE 
IF P=REC=-PIN NOT ECUAL PARTNO 
PERFORM 9700-NOT-FOQUND-R TN 
ELSE 
MOVE P-REC-DES TO PRTIDATA 
MOVE P-REC-UNT TO ORDUNT 
MOVE P-REC=PRC TO PRTPRC 


MOVE BSDARM-READ-GOOD TO FH~READ-FLAG. 


6000-READ=-STOCK=-FILE. 


MOVE OO-STOCK TO CURRENT-FILE. 
MOVE WHSNO TO S-REC-wHS. 

MCVE PARTNO TO S-REC-ONO. 

MOVE S-@EC-KEY-FIELO TO KEY-FIELO. 
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02410000 
02420000 
02430000 
02440000 
02450000 
02460000 
02470000 
02480000 
02490000 


02510000 
02520000 
02530000 


02550000 
02560000 
02570000 
02580000 
02590000 
02600000 
02610000 
02620000 
02630000 
02640000 
02650000 
02660000 
02670000 
02680000 
02690000 
02700000 
02710000 
02720000 
02730000 
02740000 


02760000° 
02770000 
02780000 
02790000 
02800000 


Sample Reentrant Subsystem (IBM ANS COBOL) (Page 10 of 14) 
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OC47§ 002270 7000-FH-VSAM-READ, 00028300 
O04&7E 002280 MOVE ZERO TC FrH-READ-FLAG. 00028400 
00477 002290 MOVE LOw-VALUES TC EXTOSCT. 00028500 
00478 002300 PERFORM 7400-FH-SELECT-RCUTINE. 00028600 
00479 002310 IF NO-00 00028700 
00480 002320 PERFORM 9500-NO-DD-RCUT INE 00028800 
00481 002330 ELSE 00028900 
00482 002340 PERFCRM 7200-FH<VSAM-READ-CONTINUE 00029000 
00483 002350 IF IQERROR 00029100 
00484 902360 PERFORM 9600-IO-ERR OR -ROUTINE 00029200 
00485 002370 ELSE 00029300 
00486 002380 IF NOT-FOUND 00029400 
00487 002390 MOVE MSG=-C TO MSG=3 00029500 
00488 002400 MOVE PSG=0 TO MSG-4 000294600 
0048S 002410 MCVE PARTNO TO NOWARES=PNO 00029700 
0049C 002420 MCVE WHSNO TO NOWARES-wWHS 00029800 
00491 002430 MOVE NOWARES@MESSAGE TO ERRMSG 00029900 
00492 002440 PERFORM 9800-SEND-ERRCR MESSAGE 00030000 
00493 002450 ELSE 00030100 
00494 002460 MAGVE VSAM-READ-GO0D TO FH-READ-FLAG : 00030200 
00495 002470 MCVE S=REC-WLC TO wWHSLOC 00030300 
0C4 96 002480 MCVE S-REC-LEV TO STKLEY 000 30400 
00497 002490 MCVE S-REC=LOT TO CATE=EDIT 00030500 
00498 002500 PERFORM 7300-04aTE-EDITING 00030600 
0049S 002510 MOVE DATE-MOVE TO LEVOATE 00030700 
00500 002520 MOVE S-REC-ORD TO STKORD 00030800 
00501 002530 MCVE S-REC-CDT TO DATE-EDIT 000 30900 
00502 C02540 PERFORM 7300-O0ATE-EDITING 00031000 
00503 002550 MCVE DATE-MOVE TO ORODDATE. 00031100 
CO5C4 002560 PERFORM 7500-Fr-RELEASE-ROUTINE. 00031200 
0050¢ 002560 7200-FH-VSAM-RE AD-CONTINUE. 00031400 
00507 002590 MCVE SPACES TO FH-STATUS. 00031500 
00508 002600 CALL 'COBREENT*® USING FH-GETY 00031600 
0050S 002610 EXxTOSCT 00031700 
00510 002620 FH=-STATUS 00031800 
00511 002630 STOCK=2ECORD 00031900 
00512 C02640 KEY-F TELD. 00032000 


Figure 48. Sample Reentrant Subsystem (IBM ANS COBOL) (Page 11 of 14) 
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033200 
033300 
033400 
032500 
033600 
032700 


033900 
034000 
034100 
034200 
034300 
034400 


034600 
034700 
034800 
034900 
035000 


035200 
035300 
035400 
035500 
035600 
035700 
035800 
035900 
036000 


036200 
036300 
036400 
€36500 
036600 
036700 
036800 


037000 
037100 
037200 
037300 
037400 
037500 
037600 


037600 
c¢37900 
038000 
038100 
038200 


038400 
038500 
36600 


Figure 48. 


Sample Processing Programs 


7300-DaTE-EDITING. 
MOVE D-E~YEAR TO O-M-YEAR, 
MOVE SLASH TO SLASHI. 
MOVE O-E-O0aY TO D-M-DAY. 
MOVE SLASH TO SLASH2. 
MOVE D-E-40 TO D-P-M0. 


7400-FH-SELECT-ROUTINE. 
MQVE SPACES TO FHeSTATUS. 
CALL *COBREENT® USING FR=SELECT 
ExTosct 
FH-STAaTUS 
CURRENT-FILE. 


7T5SOO-FH-RELEASE-ROUTINE. 
MCVE SPACES TO FH-STATUS. 
Cacti *COBREENT® USING FH-RELEASE 
EXTOSCT 
FH-STATUS. 


8000-MAP-QUT. 

MOVE SPACES TO MCW-CODE-BYTES. 

CALL "COBREENT® USING MaPQUT 
mC8 
I0-GRCUP-NAME 
10-MAP=-NAME 
MAP] 
MCW 
OMSGH-TIO. 


8500-GO0D-MAP-END. 

MOVE * Q * TO MCW-CODE-8YTES. 

PERFORM 8700-CALL=-AMAP~-END. 

IF NOT MAPENOD@SUCCESSFUL 
PERFORM 86800-MAP=PURGE RIN 
PERFORM B8850-MAPPING-ERR-RIN 
PERFORM B600-ERR-MAP -END. 


BEOOD-ERR-MAP=-END. 
MOVE ®° Q * TO MCW=-CODE-8YTES. 
MOVE WRITE1 TO MCW-CPTION-3. 
PERFORM 8700-CALL-MAP=-END. 
IF NOT PAPENO-SUCCESSFut 
PERFORM SEO00-MAP=PURGE-R TN 
MOVE +8 TO ICOM-RETURN, 


8 700-CALL~MAP-END. 
CALL ‘COBREENT*® USING MAPENOD 
aCB 
QUT PUT=MESSAGE 


MCW. 


BBOO-MAP—=PURGE-RTN, 
CALL *COBREENT® USING MAPURGE 


MCB, 
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03320000 
03330000 
03340000 
03350000 
03360000 
03370000 


03390000 
03400000 
034100C0 
03420000 
03430000 
03440000 


03460000 
03470000 
03480000 
03490000 
03500000 


03520000 
03530000 
03540000 
03550000 
03560000 
03570000 
03580000 
03590000 
03600000 


03620000 
03630000 
03640000 
03650000 
03660000 
03670000 
03680000 


037000C9 
03710000 
03720000 
037300C0O 
03740000 
03750000 
03760000 


03780000 
03790000 
03800000 
03610¢C0 
03820000 


03840000 
03850000 
03860000 
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036800 S8SO-—MAPPING-ERR-RITN, 


Chapter 10 

00585 

0¢586 038900 
0c587 039000 
00528 039100 
0cS8S 039200 
00591 039400 
00592 035500 
00593 039600 
00594 039700 
00595 039800 
00596 039900 
00597 040000 
00598 040100 
00599 040200 
00600 040300 
00601 040400 
00603 040600 
00604 040700 
00605  ¢40800 
00606 040900 
0c607 041000 
00608  ¢41100 
0060S 041200 
00611 041400 
00612 641500 
00613 ¢41600 
00614 041700 
00615 041800 
0061 041900 
00617 042000 
00619 042200 
00620 042300 
00621 042400 
oce22 042500 
00623 ¢4&z600 
00624 042700 
0C625 042800 
00627 043000 
06628 43100 
00629 043200 
0C630 043300 
00631 43400 
00632 043500 
00633 043600 
00634 043700 
00635 043800 
0C636 043900 
0C63? 044000 
0C638 044100 
00639 044200 

Figure 48. 


MOVE MSG-F TO MSG-0. 

MOVE PCw-CODESI1<-2 TO ERROR-TAG. 
MOVE MAPPING-ERR=-MESSAGE TO ERRMSG. 
PERFORM FBOO-SENDO~ERROR -MES SAGE. 


BIOO-INVALID=INPUT=RTN. 


IF PARTNOT NOT EQUAL TO LOW=-VALUES 
IF WHSNOT NOT ECUAL TO LOW=VALUES 
MOVE MSG-I TO MSG-7 
ELSE 
MOVE MSG-G TO MSG-7 
ELSE 
[IF WHSNCT NOT EQUAL TO LOW-VALUES 
MOVE “SG-H TO MSG-7. 
MOVE INVALID-INPUT=MESSAGE TO ERRMSG. 
PERFORM 9BO0-SEND-ERROR-MESSAGE. 


9500-NO-DD-ROUTINE. 


MOVE MSC-E TO MSG-5. 

MOVE °'NC DO FOR FILE * TO CaAa-CODE. 
MOVE CURRENT-FILE TO CAN=FILE-NAME. 
MOVE CANCEL“MESSACE TO ERRMSG. 

MOVE +0 TO ICOM-RETURN. 

PERFORM DBOO-SEND-ERROR-MESSAGE,. 


9600-ID-ERR OR-ROUTINE, 


MOVE MSG-E TO MSG-5. 

MOVE "IO ERROR ON * TO CAN-CODE. 
MOVE CURRENT=FILE TO CAN-FILE-NAME, 
MOVE CANCEL=MESSACE TO ERRASG. 

MOVE +0 TO ICOM-RETURN. 

PERFORM 9800-SEAD“ERROR=-MESSAGE. 


9 700-NOT-FOUND-RTN, 


MOVE +0 TO ICOM-RETURN. 

MOVE MSG-A TO ASGe-l. 

MOVE MSCG-B TO MSG-2. 

MOVE PARTNO TO NOPART-PNO. 

MCVE NO-PART@MESSAGE TO ERRFSG. 
PERFORM DBOO“SEND-ERROR-MES SAGE. 


9BOO-SEND-ERROR-MESSAGE. 


MCVE SPACES TO MCW-CODE-8YTES. 
MCVE ‘E*® TO MAP-FLAG, 
CALL "COBREENT® USING MAPOUT 
CB 
10-GRCUP-NAME 
ERR-MAP-NAME 
ERRMAP 
MCW 
OmMSGH-TIO. 
IF NOT MAPPING -OK 
MOVE +8 TO ICOM-RETURN 
MOVE °Aa® TO AAP-FLAG, 
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03880000 
03890000 
03900000 
03910000 


_03920000 


03940000 
03950000 
03960000 
03970000 
03980000 
03990000 
04000000 
04010000 
04020000 
040300C0 
04040000 


04060000 
04070000 
04080000 
04090000 
04100000 
04110000 
04120000 


04140000 
04150000 
04160000 
04170000 
04180000 
04190000 
04200000 


04220000 
04230000 
04240000 
04250000 
04260000 
04270000 
042800CO 


04300000 
04310000 
04320000 
04330000 
04340000 
04350000 
04360000 
04370000 
04380000 
04390000 
04400000 
04410000 
04420000 
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wN~-9dS 10 
4Sia 
qwO) 

dnagsd 
éndad 

WN-dS1Q0 

WN-dS 10 

ano ud 
«sia 
awO) 
dnoud 
4Siq 
asia 
dwO) 
#noa9 
dnogao 
dN049 
es1a 
dS 1d 
esta 
#S1a 
dS1Q 
dS1Q 
Sia 
dS 1d 
adwo) 

WwN-dS 10 
4S 1d 
d4S1g 

dnoas 

WN-@S 10 

WN-4dS 10 

we- dS 10 

WN-dS10 

dnogas 

WN-dS1G 
éS1Q 

WN-dS 1G 

dndad 
Sia 
dS1Q 
Sia 
4S1a 


J€ 
at 
32 
9130 
O%r1t130 
aT 
ahi 
$130 
JIT 
32 
@130 
ahi 
JIT 
ar4 
£130 
2911790 
222790 
a1 
at 
JT 
32 
JT 
Pai 
Je 
32 
32 
32 
32 
a1 
$130 
32 
J2 
22 
IZ 
@120 
JE 
JIT 
32 
9130 
J€ 
JI 
Pai 
dT 
dT 
32 


9EE-OL =WANQ 
02€-Ol#anNg 
%OE-OT=*WNO 
687-OT=4NQ 
¥92-OT#aN0 
L492-O0T-WNO 
EE 2-OT=WNO 
¥TZ-OT=#WNO 
%oT-OT#4NQ 
e2T-OT=WNO 
TS T-OT #WNG 
LET-OTeWNG 
ZZT-OT#WNG 
%OT-OT#WNG 
990-OT ewNQ 
690-0TeHNO 
T¥O-OTeWNO 
2Z20-OTeWNG 
000-O0Te#wWNO 
904-6 “WN 
694¥-62HNQ 
E*+-620NG 
02%-6*WNO 
TO0%-62WNOQ 
T8E-624NG 
65€-6*4N0 
GEE-6 eNO 
¥T€-6 =WNO 
$62-62WNQ 
€L£2-62HNQ 
6$2-6=WNO 
LE2-6=WNO 
612-62WNQG 
T02-62#WNQ 
@LT-6=WNG 
2$T-62aNQ 
221-6=0WN0 
60T-b6*WNQ 
€ 90-6 =WNQG 
190-6°WNQ 
27 490-624N0 
020-o#WNG 
000 -6=WNG 
644 -GeWNG 
L$%-@eWNG 
%E*-BeWNG 
20%-9eWNG 
-@=aWNC 
SS$€-9*4N0 
2ZEE-VewWNG 
6TE-9 =4N0 
662-GeWNQ 
€L2-GewNG 
2$2-824NG 
¥EZ-Q =WNG 
ET2-9*4NO 
461T- GeWNG 


JINSHM 

LINSHA 
TONS 4" 
J0NS4A 

193S5Nn 
JLAGNGa 
waza 
ONLuvd 
LONLAVd 
TONLuVd 
JUNLUVG 

QazAa 

LOBzA 

TAazA 

SORIA 

tavw 
dVW-JITOGWAS 
TWA-H9SAO0 
41d-HISAO 
901-9540 
s0QV-HISHO 
¥SN-HIOSWO 
HISS-H9SHWO 
NWO@-HISAO 
$9749-H9S40 
NOIJ-H9SWO 
6-1 1L-H9SWO 
€-Z21 1-H9S40 
Tl L-HOSWO 
Q1k-H9§40 
MiL-HISWO 
$S-HISWO 
wW-49S40 
HH-499540 

JWI L-HOSWO 
AVO-NTI ING -H9NSWO 
QOly3d-H9SAD 
aA-H9SWO 
J1vd-H9S40 
NwwW-HISWO 
3$S-HISWO 

I$ u-KISWO 
HIS U-HISWO 
4d9-H9S20 
HLONIW-HISAO 
¥OH-9S5S 3n0 
39vVSS3W-1NG INO 


Nani. Ju-worl 
LIS-wOdl 
vaS-wO)I 

QaFA-1NNI 
LX3L=-1L NANI 
[WaA-H9SW 
w18-HOSW 
901-7H9S W 
sqgv-H9OSw 


90 
90 
90 
$0 
%0 
90 
90 
$0 
$0 
$0 
¥0 
$0 
§0 
$0 
*0 
€0 
20 
¥0 
%0 
%0 
%0 
¥0 
¥0 
40 
¥0 
#0 
$0 
$0 
$0 
¥0 
$0 
$0 
$0 
sO 
¥0 
$0 
$0 
$0 
%0 
¥0 
¥0 
%0 
0 
*0 
%0 
€0 
20 


TO 
10 
to 
€0 
20 
€0 
€0 
€0 
£0 


9EE-OC eWNO 
OZ2E-OC =WNG 
*OE-OT=WNQ 
682-OT=WNG 
¥™92-OT*WNG 
£92-OT=WNQ 
EE Z-OT=WNG 
¥TZ-OT*HNQ 
boT-OT=WNG 
eLT-OTeWNO 
TS T-OT ewNnQ 
LET-OT#WNG 
ZZ1-OTeWNG 
YOT-OT =WNG 
9890-OT -WNG 
690-01 “WN 
T+O-OTeWNG 
220-OT eWNG 
000-0 =nNG 
094-6 enNG 
69 4-62WNQ 
€%5-6°WNO 
02%-6*WNG 
TO05-b62nWNQ 
T@E-b6°WNQ 
65€~b62°WNG 
GEE-62WNQ 
YTE~G OHNO 
S6627-6=WNO 
€L2-62WNO 
65 2-6°NNQ 
LE2-62WNG 
612-6 =WNQ 
102-6 <WANO 
G21 -b°WNO 
7$1%-b"° ANNO 
L2T-62WNO 
60T-b°WNO 
E9O0-6 WN 
190-62WNO 
240 -62WNG 
020-6eWNO 
000-62HNQ 
6L25-G2HNO 
LS4-QeWNG 
YE4-G=WNO 
LO0%-GeWNG 


GSE-GewNg 
LEE-8eWNG 
6TE-B=WNO 
662-8eHWNG 
ELZ-QewNng 
292-G=WNQ 
%E7-BedNg 
ETZ-G@eWNg 
YoT-9eWNG 
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Chapter 10 Sample Processing Programs 


PP S74C-CB1l RELEASE 2.4% Ter CS/¥S COBOL 


oo00cl COO010 IDENTIFICATION OIVISICN. 
000Cc< O00020 PROGRAP-10. SQCOBCLB 
000023 000030 EAVIRONMENT DOIVISION. 
00004 COCC4C DATA OIVISICN. 

occes5 QO0CS5O WORKIAG@STOGRAGE SECTION. 


oooce C00060 77 OD-PART PIC (6) VALUE *PARTFILE’. 

oocc? C00070 O01 COBREENT-COCES CCPY ICOFSSS. 

ococe ¢ Ol COBREEAT-COCES. 000010C0 
oo009 C % THESE CODES REPRESENT OFFSETS FOR ROUTINE ADDRESSES IN TKE 00002000 
occic C 8 TABLE NAMEC REENTSES. OALY TRE MOST COPMONLY USEO VALUES 00003000 
oooll C 3 ARE INCLUDED HERE; THE USERS PANUSL HAS A COMPLETE LIST. 00004000 
ooogi2 Cc d IF OFFSET COO, THERA TRUE CFFSET#-(OFFSET¢1) 00005000 
occi13 C 05 IATSORTC PIC $9 COMP VALUE 99. 000053C0 
cccli4 C 05 O€S-SNAP PIC 99 CCMP VALUE 95. 00005400 
oco1s C 05 MAPFREE PIC 99 CCMP VALUE 91. 00005500 
occié C 05 FECFRLSE PIC $9 CCMP VALUE 87. 00006000 
ocoi7 C 05 FESEND PIC $9 CCMP VALUE 83. c0007000 
00018 C 0S FESENOC PIC $9 CCMP VALUE 79. 00008000 
occis C 05 OYN-aALLOCATE PIC S9 COMP VALUE 75. 000090C0 
ooo2zc C O05 DYN-aCCESS PIC $9 CCMP VALUE 71. 00c10000 
ood21 C 05 MAPURGE PIC $9 CCMP VALUE 67. 00011000 
occ2z C 05 MaAPCLR PIC $9 CCMP VALUE 63. 00012CCO 
oco23 C 05 MAPEND PIC $9 CCMP VALUE 59. 000130C0 
oco24 C 05 MmaPCUT PIC 99 COMP VALUE 55. C0014000 
oco2= ¢ 05 MAPIN PIC $9 CCPP VALUE 51. 000150C0 
oo0dzé C 05 INTUNSTC PIC $9 CCMP VALUE 47. 00016000 
occ27 C 05 IANTSTORE PIC $9 COMP VALUE 43. 00017000 
oco2e C 05 INTFETCH PIC $9 COMP VALUE 39. 000180C0 
ooces ¢ 05 FECFFCBK P1C 99 CCMP VALUE 35. C0019000 
ecc3c C o5 Fecroce PIC $9 CCRP VALUE 31. 00020C00 
occ31 C 05 OC-wRITEX PIC 99 CCMP VALUE 27. 000210C0 
ooc3< C Of DOC-READX PIC S9 COMP VALUE 23. 00022000 
occ33 C 05 OC-hnRITE PIC $9 COMP VALUE 19. 00023000 
00034 C 05 O0Q~READ PIC 99 CCMP VALUE 15. 00024000 
occ35 Cc 05 OQ=-CLOSE Pic $9 CCMP VALUE ll. 00025000 
occ3é ¢ 05 DC-OQPEN PIC 99 COMP VALUE 07. 000260C0 
00037 C 0S OQ-BVUILC PIC $9 CCMP VALUE 03. co027000 
ooc3e C 05 Fr-SELECT PIC -S9 CCMP VALUE 4. 00028000. 
oco3s C C5 FrR-RELEASE PIC $9 CCMP VALUE 8. 000290C0 
oco4c C 05 FH-REAO PIC $9 COMP VALUE 12. 00030000 
0c041 C 05 Fr-nRITE PIC $9 °CCMP VALUE 16. 000310C0 
Oco4z C 05 Fh-GET PIC $9 CCHBP VALUE 20. 00032000 
00043 C 05 FH-PUT PIC $9 CEMP VALUE 24. 00033000 
ccec44 C 05 Fr-RELEX PIC $9 CCMP VALUE 28. 000340CO 
0co045 C 05 Fr-FEOV PIC 99 CCMP VALUE 32. 00035000 
occ4eée C 05 COBPUT PIC $9 CCMP VALUE 68. €0036000 
ocoO47 C 05 MSGCCL PIC 99 CCPrP VALUE 72. 000370C0 
oco4e C 05 COBSTCRF PIC $9 CCMP VALUE 76. 00038000 
occ4s C OS CONVERSE PIC SS CCMP VALUE 80. 00039000 
occs¢ Cc 05 DBINT PIC $9 COMP VALUE &4. 000400CQ 
00051 C 05 vocPuT PIC $9 CCMP VALUE 88. 00041000 
coos. C 05 PAGE-FILE PIC $9 COMP VALUE 92. 00042000 
ocos2 ¢€ 05 FR-GETV PIC S9 CCFPP VALUE 96. 00043CCO 
cco5¢ C 05 Fr-PUTY PIC 999 CCMP VALUE 100. 60044000 


Figure 49. Sample COBOL Subroutine (Page 1 of 3) 
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occs5 C COOES 104 ANO UP INCICATE USER ADDITIONS TO THE 000450C0 


00057 000080 LINKAGE SECTION. 

ccoseé COCOGO 01 ICOM-RETURN PIC $9(7) COMP, 
0C05S CCO100 O1 OYNAMIC-WORKING-SPACE. 

occec C00110 O02 STAaTWO PIC $S(7) COMP SYAC. 
occé} €00120 O2 FreSTATUS REDEFINES STATAD. 

0C062 €cC0130 04 FH-STATl PIC X. 

0cc63 C€00140 88 [LO-ERROR VALUE 1. 

CCCé4 00015C 88 NCT=-FQUNO VALUE 2. 

o0d0¢s €00160 8e NO-0C VALUE 9. 

occéeé c0C170 O04 FILLER ' PIC X(3). 

Cc067 ccc1a0 C2 EXTCSCT PIC X(48). 

ocosee 000185 O02 OD-NAFE PIC x(8). 

occes 000190 O1 PART-RECORO PIC x€100). 

ooo7c €00200 01 RBA PIC x(3). 


OCC7<z 000220 PRCCEOURE DIVISION USING ICCP-RETURN 
occ72 006230 DOYNAMIC-WORK ING-SPACE 
00c74 C€00240 PART=-RECCRO 
occ7§ c0c250 RBA. 

oco7eé CCC 260 MCVE SPACES TO FH-STATUS. 

occ? c00c2zé5 MCVE OD-PART TO DO-NAPFE, 

ccc7eé €00270 CaLL *CCBREENT® USING FR-SELECT 
0007S €C0280 EXTCSCT 

cccec coc290 Fr-STAaTLs 
ccoel co00300 OC-NAPE. 
00082 C00310 IF NO~OC 

ocoé3 ¢cd320 MOVE 9 TO ICOP-RETURN 

ccoas ccc330 ELSE 

occes C0034C MCVE SPACES TO FH-STATUS 

OCOEE €C0250 PERFORM FH-READ-RTN 

0008? €C0360 IF TO-E€RROR 

occeée 00037C MOVE 1 TO ICOP-RETURN 

occes CC0380 ELSE 

o0oscC €00390 IF NOT-FOUND 

ccosl cCC400 MOVE 2 TO ICOP-RETURA. 
ccosz C€cc410 IF ICOM-RETURN NOT EQuUaL TO S 

occs2 00042C MCVE SPACES TC FH-STATUS 

00094 060430 CALL *COBREEAT® USING FReRELEASE 
coos? €00440 ExTOSCT 

occse 000450 FR-STATLS. 
occs? 000460 GCBACK. 

ooo9ge C00470 FR-READ-RTA. 

occss ccc48o CaLlL *COBREENT® USIAG FR-READ 
0c10C 00049C ExTOSCT 
ocicl c00500 FR-STATUS 
0C10¢ c¢ec510 PART=-RE CORD 
00103 00052C ReX. 


Figure 49. Sample COBOL Subroutine (Page 2 of 3) 
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Figure 49. 


Chapter 11 


SUBSYSTEM TESTING 


oa ee INTRODUCTION 


After a new subsystem has been thoroughly desk-checked and 
compiles cleanly, it becomes necessary to test the subsystem’s 
execution under the control of Intercomm. Three methods of testing are 
available: 


@ Simulated--batch execution of Intercomm with a simulated BTAM 
Front End. Message input streams are created via _ the 
GREATSIM utility program. Additionally, 3270 terminal input 
and output screen, or output printer, images are formatted if 
the SIM3270 utility is implemented for the simulation mode 
execution. Illustration of this mode of testing is provided 
in this Chapter, and is particularly useful for testing 
messages processed via the Message Mapping Utilities. 


e Test Mode--batch execution of a Back End Intercomm with 
message input from a card-image data set, as described in 
Chapter 12. 


® On-line Testing--an on-line system is necessary for final 
testing of all error conditions, multithread processing, etc. 
and can be either a single region system, or a satellite 
region used primarily for testing within a Multiregion 
production system. 


a ee DEBUGGING APPLICATION PROGRAM PROBLEMS 


Text and descriptions of error messages issued by Intercomm as a 
result of invalid program logic paths, along with descriptions of 
general debugging techniques for accompanying snaps and abends are 
available in Messages and Codes. Additional debugging facilities such 
as dispatcher trace reports, thread dumps and indicative dumps are also 


described in the Operating Reference Manual. 
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Ee es TESTING A SUBSYSTEM WITH THE FRONT END SIMULATOR 


As described in the Operating Reference Manual, a test execution 
with a simulated Front End is very useful to determine Front End 
message interface problems that may be harder to debug when using an 
on-line test system. Although the simulation is of certain BTAM 
devices, including a local 3270, the access method interfaces required 
for a remote 3270 or a TCAM or VTAM Front End are essentially 
transparent to the application programmer as the interface dependent 
code is handled by Intercomnm. 


This chapter illustrates testing of the subsystem and subroutine 
described in Chapter 10 using the BTAM simulator for 3270 CRT messages 
processed via maps defined for the Message Mapping Utilities. 


To test an application system in a simulated Intercomm 
environment, do the following: 


NOTE: Steps preceded by an asterisk (*) may often be performed 
for the application programmer by an installation’s 
Intercomm System Manager. Appendix C summarizes the 


Intercomm Table entries. 


1. Compile and linkedit the user subsystem(s) and subroutine(s), 
if any. Appendix A describes Intercomm-supplied COBOL JCL 
procedures. 


*2. Create or add to a USRSCTS member on a user test library to 
contain a Subsystem Control Table Entry (SYCTTBL macro) which 
describes the subsystem. Reassemble and link INTSCT which 
copies the USRSCTS member from the test library (see Figure 
50). 


*3. Define input message verbs in the copy member USRBIVRB via 
BIVERB macros and reassemble and link the Front End Verb 
Table BTIVRBTB (see Figure 50). 


*4. Code a SUBMODS macro addition to the COPY member USRSUBS to 
define the COBOL subroutine and reassemble and linkedit 
REENTSBS which copies USRSUBS (see Figure 50). 


5. Assemble and linkedit MMU maps (Map Group STKSTAT--see Figure 


51) to the MMU load module library. Load maps to _ the 
appropriate Store/Fetch data set. See Message Mapping 
Utilities. 


6. Prepare input test message data set(s) using the CREATSIM 
utility as illustrated in Figure 52. Note that the first 
message turns on the DWS protection option described in 
Chapter 3. The next message generates, via the MMU command 
MMUC, the screen template to be used for entering an inquiry 
transaction. All subsequent input messages are for testing 
the COBOL subsystem and subroutine, including input error 
conditions handled by the application program. 
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%7 , 


8 , 


#9, 


10. 


1 OF 


#12. 


13: 


Add control cards to the linkedit deck for the user programs, 
unless the routines are dynamically loadable (see Figure 53). 


Add INCLUDE statements for the simulator (BTAMSIM) and 3270 
display formatter (SIM3270) to an Intercomm linkedit deck 
which was created for the BTAM Front End (see Figure 53). 


Linkedit to create a new Intercomm load module (see Figure 
33) 


Add DD statements to the Intercomm execution JCL for the 
printed SIM3270 output and the input message data set(s) (see 
Figure 53). 


Create test data sets and add DD statements for them to the 
execution JCL (see Figure 53). Note that if a VSAM data set 
is used with a user catalog, place the STEPCAT DD statement 
after the //PMISTOP DD statement (see Figure 53); do not use 
a JOBCAT DD statement. STEPCAT should be omitted if using 
IGF catalogs. 


Execute in simulation mode: 


a. Single-thread test all subsystems; to test a reentrant 
subsystem, specify MNCI=l in the subsystem’s SYCTTBL 
macro. 


b. Multithread test reentrant subsystems (change MNCL) using 
several test message input data sets or use a single data 
set as input from more than one terminal. 


The parameter 'STARTUP’ must be coded on the Intercomm EXEC 
statement. Figure 53 illustrates a sample execution deck 
with test message input (DD statement TEST1) for the sample 
inquiry program and JCL to print the system log. 


The resulting SIM3270 printouts for the simulated execution 
of the sample inquiry subsystem are illustrated in Figure 


54. Note that the underlined positions on each screen 
display indicate attribute byte positions; codes are 
described under the display. On an actual terminal, the 
attribute byte position appears as a blank to the terminal 
operator. See Message Mapping Utilities and IBM 


documentation on programming for the 3270 CRI for further 
information on attribute codes. 


The Intercomm Log printed after the simulated execution of 
the sample inquiry subsystem is shown in Figure 55. 


Test the subsystem concurrently with other application 
subsystems. 
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//TABLES 

//* 

//* DEFINE SYCTTBL FOR SUBSYTEM 

//* 

//STEPL EXEC LIBELINK,Q=TEST ,NAME=INTSCT, LMOD=INTSCT 

//LIB.SYSIN DD * 

./ ADD NAME=USRSCTS 

_/ NUMBER NEW1=100 , INCR=100 

USRSCTS DS OH 

RQ SYCTTBL SUBH=R,SUBC=Q , SBSP=SQCOBOLA, LANG=RCOB , OVLY=0, 
NUMCL=L0 , MNCL=2 , TCTV=60 , GET=640 


¥ 
//ASM.SYSIN DD DSN=INT.SYMREL(INTSCT) , DISP=SHR 


DEFINE BIVERB FOR SUBSYSTEM 


EXEC LIBELINK, Q=TEST,NAME=BTVRBTB , LMOD=BTVRBTB 
//LIB.SYSIN DD * 
./ ADD NAME=USRBTVRB 
_/ NUMBER NEW1=100 , INCR=100 
USRBTVRB DS OH 
BTVERB VERB=MURQ,SSCH=R, SSC=Q , CONV=18000 
/* 
//ASM.SYSIN DD DSN=INT. SYMREL(BTVRBTB) , DISP=SHR 
//* 
//* DEFINE SUBMODS FOR SUBROUTINE 
//* 
//STEP3 EXEC LIBELINK,Q=TEST, NAME=REENTSBS , LMOD=REENTSBS 
//LIB.SYSIN DD * 
_/ ADD NAME=USRSUBS 
_/ NUMBER NEW1=100 , INCR=100 
USRSUBS DS OH 
SUBMODS LNAME=SQCOBOLB , TYPE=COBOL, DELTIME=30, PARM=RC, 
GET=60 
/* 
//ASM.SYSIN DD DSN=INT . SYMREL(REENTSBS) , DISP=SHR 
// 


Figure 50. Table Updates to Implement Simulation Mode Testing 
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STKSTAT 
MAPI 
VERB 


PAR TNO 
FILLER 
RBNBYTE 


WHSNO 


PRTOATA 


ORDUNT 


PRTPRC 


WHSLOC 


STKLEV 


LEVDATE 


STKORD 


ORODATE 
ERRMAP 


enn 


ERRASE 


.MAP 


ABOVE CLEARS STOCK STATUS INFO. 


MAPGROUP MODE=1/0,DEVICE=I845270 

SI ZE=€ 20580) eSTART=(191)- 

FIELD RELPOS=VERB 

FIELC RELPOS=(1¢e7) esINITIAL="ENTER TRANSACTION COOE® ,ATTRIB=PSN 
FIELD RELPOS=¢€3e23) eINITIAL=*ENTER DATA: *eATTRIB=PSH 
FIELD RELPOS=(S¢7)gINITIALS*PART NO? *,ATTRIB=PAHSEL 
SEGMENT 

FIELD RELPOS=(5 9016) pFORMAT=C€4%eeZD) sATTRIB=UNN 

FIELD RELPOS=€5420) eFORMAT=C€1e-e2Z0) 

SEGMENT 

FIELO RELPOS=(5922) eFORMAT=1 eATTRIB=PSN 

FIELD RELPOS=(C6e7) eINITIALS*WHS NOS *sATTRIS=PAHSEL 
FIELO RELPQS=(€6¢e15)eFORMAT=€3¢4¢20) sATTRIB=UNN 

FIELD RELPOS=(6e19) eFORMAT=1 eATTRIB=PSN 

FIELD RELPOS=(€8e23) ,INITIAL=*STOCK STATUS: *gATTRIB=PSN 
FYELD RELPOS=C10¢e7) eINITIAL=*DESCRIPTION: *,ATTRIS=PSN 
FIELD RELPOS=C1i0e2Q) eF ORMAT=HS4eATTRIB=UAN 

FIELO RELPOS=€10¢ 76) eFORMATH=1eATTRIB=PSN 

FIELD RELPOS=(€1i1¢07) eINITIAL=*ORDER UNITS? *,ATTRIB=PSN 
FIELD RELPOS=(€11420) sFORMAT=SeATTRIBIUAN 


FIELD RELPOS=(119026) eF ORMAT=1,ATTRIB=PSN 

FIELD RELPOS=C1l1le4O) sINITIAL="PRICE: *oATTRIB=PSN 

FIELD RELPOS=(11947) sFORMAT=H=(9 e4eSP0S 4) eATTRIBSUAN 

FIELD RELPOS=€11¢57) eFORMAT=1,ATTRIB=PSN 

FIELO RELPOS=Ci3e23)gINITIAL=*STOCK STATUS AT WAREHOUSE: %¢ 
ATTRIB=PSN 

FIELO RELPOS=(1597) eINITIAL="LOCATION:* sATTRIB=PSNH 

FIELD RELPOS=(15017) sFGRMATH=23eATTRIB=UAN 


RELPOS=Cil5e41) eFORMAT=1eATTRIB=SPSN 
RELPOS=CISe TI eINITIAL=*ON HAND? *¢ATTRIB=PSN 
RELPOS=€16e16) eFORMATH(7—94ePD) eATTRIB=UAN 
RELPOS =(€16924) sFORMAT=1,9ATTRIB=PSN 


FIELD 
FIELO 
FIELO 
FIcLO 


FIELD RELPOS=C160e4M) ¢INITIAL=9AS OF 5° eATTRIB=PSN 
FIELD RELPOS=€16047) sFORMAT=ReATTRIGB=SUAN 

FIELD RELPOS=(16¢56) sFORMAT=1 eATTRIS=PSN 

FIELO RELPOS=(€17¢e7) sINITIAL=*ON ORDER 2 *sATTRIB=PSN 
FIELD RELPOS=C1l7e¢1 7 eFORMATH(7e4eP0) sATTRIBSUAN 
FIELO RELPOS=€17+25) eFORMAT=1 eATTRIB=PSN 

FIELD RELPOS=(17940) eINITIAL=HPAS OF S*eATTRIB=PSN 
FIELD RELPOS=(17,47) eFORMAT=8,ATTRIBSUAN 

FIELD RELPOS=C€17+56)eF ORMAT=1eATTRIB=PSN 

MAP STZE=€15580) eSTARTHC10—1) 

FIELD RELPOS=( 191) eATTRIB=SSUPReINITIAL=X*125B5F" 


WHEN ERROR MESSAGE APPEARS see 
FIELD RELPOS=Ci4eS3)eINITIAL=*ERROR MESSAGE: *oATTRIB=PAHSEL 
FIELD RELPOS=(159010) sFORMAT=50 eATTRIS =UAHSEL 

FIELO RELPOS=(15¢61) sFORMAT=1 sATTRIB=PSN 

ENDOGROUP 

END 


Figure 51. MMU Maps Used by Sample Subsystem 
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ooogn010 
o0000020 
00000030 
90000040 
00009050 
90000060 
00000065 
00000070 
00000075 
00000077 
00000080 
00900090 
00000100 
90000110 
00000120 
00000130 
00000140 
00000150 
ogg0c160 
00000170 
00000180 
00000196 
og0ca200 
00000210 


x00000226 


00000230 
00060240 
00000250 
20007260 
00000270 
090000280 
°0000290 
¢0000300 
000003106 
00000329 
00000330 
00000346 
08000350 
00000360 
000003 70 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
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/ACREATSIM JOS 


/ACRS PROC T= 

eh SCRATCH OLD TEST INPUT DATA SET CIF ANY) 
44S EXEC PG6M=IEFBR14 

//SCR dD DSN= INT TETeDISP=(OLD,OELETE) 


//CRS ' EXEC PG6M=CREATSIM 

/ fe CREATE NEW TEST INPUT DATA STREAM FOR 3270 DEVICE 
//STEPLIS OD OSN=INT.MOOLIB,DISP=SHR 

// 0D OSN=INT -MOOREL oD ISP=SHR 


//SYSPRINT OO SYSOUT=A 

J/SYSUT2 00 DSNZINT T&T eDISP=H=CeCATLGeCATLG) eUNIT=3350¢ 
ff VOL=SER=INTOOL, SPACESCTRKe (lel) ) 

//40UMP EXEC PSM=IEBPTPCH 

Vf PRINT MESSAGES GENERATED ON TEST INPUT DATA SET 
JFSYSPRINT OO SYSOUT=A 

A/SYSUTI DO DSN=#.CRS eSYSUT2e¢0ISP=O0LD 

JISYSUT2 DO SYSOUT=A 


4f PENO 

/fe« FOR THIS EXECUTION OF CREATSIMe THE END-OF-CARD CHARACTER IS A 
ff SEMYT-COLONe C€USE ALSO AFTER THE VERB=FRONT ENO SEES THE SBA), 
/fe THE MESSAGE END CHARACTER IS AN EXCLAMATION POINT (£08). 
J7EXECCRS EXEC CRSeT=TESTI 

SICRSeSYSIN DO *# 

GRAPHIC eADDe $FF CONTINUATION CODE 

GRAPHIC eADDe <70 ENTER KEY 

SBAeqM2 USING MODEL 2 SCREEN SIZE 

€ STRTeDWSCK! 

€ MMUCsSHOWs CSTKSTATsMAPI) ! 

< $3 

SBAe0102% 

MURQ$ 

SBAeN516% 

123453 

SB8Ae06153 

200! 

€ 3 

$BA201025 

MURQS 

SBAe05163 

§55555 

SBA,06153% 

200! 

€ 3 

$BAe0102% 

MURQS 

S$BA.9516$ 

123483 : 
S$BAe06153 

300! 


Figure 52. 
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coagoi0gd 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
900000900 
00001009 
00002100 
90001200 
00001309 
90002409 
00001500 
00001600 
00001700 
00001800 
60001900 
00002000 
00002100 
000022190 
coag2300 
00002490 
60002500 
600002500 
000027090 
o0q0gc2800 
60002900 
coo0sc00 
00005100 
t0005200 
0003300 
60003400 
90003500 
000035600 
00005700 
coog03800 
900035°0C0 
90004000 
00004100 
00004200 
900004300 
000049400 
00004500 
00004600 
00004700 
¢0g704800 
00004900 


Input Test Messages Generated via CREATSIM (Page 1 of 2) 


Chapter 11 


SBAe01005 
MURQS 
S$BAe95163 
123413 
S$BAe06153 
600! 

<3 
SBAe0102: 
MURAS 
S$BA,05163 
A2345%5 
SBAeCH1S3 
200! 

€ 3 
$BAe01023 
MURQS$ 
$BA~e9516% 
123453 
§$8Ae¢96155 
890! 

< , 
S$B8Ae01025 
MURGQS 
SBA,O514; 
1234X5 
S$BAe06153 
20y! 

€ 4 
$BAe01025 
MURQS$ 
SBAeN51635 
123493 
SBAe(t618§% 
100! 

€ 3 
$BAe01025 
MURA’ 
$BA.05165 
123425 
$8Ae06155 
100! 


J/OUMP.SYSIN OO * 
PRINT TYPORG=PSeTOTCONV=XEeCNTRL=2 


ft 


Figure 52. 
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e000sa co 
e0005100 
0005290 
90005500 
90905400 
10005500 
90005600 
00005700 
00005800 
eccos7o0 
00006000 
10005100 
00046290 
00006300 
00006400 
90006500 
0006600 
0006700 
20006800 
60006900 
°00079 00 
90007100 
20007200 
eo00073 00 
00007400 
20007500 
20007600 
090077900 
900076800 
c0007900 
00008000 
eo000r100 
90908200 
90008300 
00002400 
c0008500 
20008600 
coc0e7ce 
20008809 
ecoo0Rg00 
20009000 
90009100 
10009200 
79009009390 
"0009400 
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//EXECTEST JOB (ICOMTEST,,,20),’COBOL TEST’ ,CLASS=A, 
//  RESTART=(GENLINK.ASM) 


//PROCLIB DD DSN=INT.PROCLIB,DISP=SHR (AS NEEDED) 
L [RR RHR RRA 


//* THE RESTART PARM IN THE JOB STATEMENT RESTARTS THE TEST AT THE * 
//* BEGINNING. IF YOU WISH TO RESTART AT A DIFFERENT STEP, CODE * 
//* RESTART=STEPNAME OR’ RESTART=STEPNAME.PROCSTEPNAME * 
//* * 
//* NOTE: WHEN USING A VSAM FILE, IT MAY BE NECESSARY TO EXECUTE * 
//* IDCAMS TO VERIFY THE FILE IF A PREVIOUS EXECUTION ABENDED. * 
[ /ekkkakkekkkkkkkkkkkkkkkkikkkkkkkkkkkkkkkkhhkkkhikkhkkkkkhkkkikkhkkkkhik 
//* 


[ [eek akkkakkikkhhkhakkakkkkhhkkhkkhkkkakhhkkhkkkhkkkhkkkkkikkkkkkkkakkik 


//* STEP GENLINK GENERATES A STANDARD BTAM FRONT END LINKEDIT DECK 
//* ‘VIA ASSEMBLY OF THE ICOMLINK MACRO. IF ONLY A VTAM FRONT END IS_ * 
//* USED ON-LINE, A SETGLOBE WITH THE BTAM GLOBAL SET TO 1 MUST BE * 
//* IN THE LIBRARY SPECIFIED BY THE Q= PARM. ADD OR CHANGE PARMS FOR * 
//* THE ICOMLINK MACRO BASED ON INTERCOMM FACILITIES USED. * 
//* THE GENERATED DECK (SIMLINK) IS PLACED ON INT.SYMTEST. * 
//* NOTE: THE SPECIFIED FRONT END NETWORK TABLE (FENETWRK) THAT IS ” 
* 
* 
* 
* 
* 


//* ON MODREL CONTAINS A DEFINITION FOR THE TEST TERMINAL 
//* TEST1 AS A LOCAL BTAM 3270 CRT. (COPY TO MODTEST) 
//* STEP NUM NUMBERS GENERATED LINK DECK IN INCREMENTS OF 1000 


//* FOR ADDING INCLUDE STATEMENTS IN GENINCL STEP. 
[ [ae akkkkkkkkkkkkkkkkkkkkkhkkhkhkkkkkkhkkkhkkkkhkkkkkkkkkkkhhkkkkhkkik 
//GENLINK EXEC ASMPC,DECK=DECK,Q=TEST 
//ASM.SYSIN DD * 

ICOMLINK MMU=YES, FETABLE=FENETWRK , COBOL=YES , RECOBOL=YES 


END 
//SYSPUNCH DD DSN#=INT.SYMTEST(SIMLINK) , DISP=SHR 
//* NUMBER GENERATED LINKEDIT DECK 
//NUM EXEC LIBE,Q=TEST 


//LIB.SYSIN DD * 
./ CHANGE NAME=SIMLINK 
./ NUMBER NEW1=1000, INCR=1000 


//* 

JL [TREAT HET EEAHNEEHEENER AEN Rk 
//* STEPS SCRSCR AND ALLOCSCR DELETE AND RE-ALLOCATE THE LOAD * 
//* MODULE LIBRARY USED IN THE TEST (ALSO USED FOR DYNLLIB) * 


[ [HERRERA EE RARER 
//SCRSCR EXEC PGM=IEFBR14 

//¥FILE1 DD DSN=INT.MODSCR, DISP=(OLD, DELETE) 

//ALLOCSCR EXEC PGM#=IEFBR14 


//A DD DSN=INT.MODSCR,DISP=(,CATLG) ,UNIT=SYSDA, 
// DCB=INT.MODREL, VOL=SER=INTOO1, 
// SPACE=(TRK, (30,,7)) 7 RECORDS PER TRK/3380 


Figure 53. Linkedit and Execution JCL for Simulation Mode (Page 1 of 3) 
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[ [RRA KKK KKK KK KKK kkk ka kaka kkk kakkkkkikikikihikkkakkekik 


//* STEP GENINCL CREATES INCLUDE DECK USED BY THE LINK EDIT STEP: * 
//* THE ADDED INCLUDE STATEMENTS ARE FOR THE SAMPLE SUBSYSTEM * 
//* (ASSUMED TO HAVE BEEN LINKED TO MODTEST), * 
//* AND THE REQUIRED SIMULATION MODE MODULES. * 
//* IF THE TEST1 TERMINAL IS NOT IN THE SYSTEM PMISTATB TABLE, USE: * 
//* INCLUDE MODREL(PMISTATB) * 
//* INCLUDE MODREL( PMIDEVTB) * 
//* INCLUDE MODREL( PMIBROAD) * 
//* THE ABOVE ASSUMES THE CONTROL TERMINAL IS NAMED CNTO1. * 
[LRU AKHKKKHKA KKH KKK hahahahaha kkhhkikhhhkiik 
//GENINCL EXEC PGM=IEBUPDTE 
//SYSPRINT DD SYSOUT=A TO PRINT CHANGES 
//SYSUT1 DD DSN=INT.SYMTEST,DISP=SHR 
//SYSUT2 DD DSN=&&INCL,DISP=(,PASS) , UNIT=SYSDA, SPACE=(TRK,(8,1,1)), 
// DCB=( BLKSIZE=80, LRECL=80 ) 
//SYSIN DD * 
./ CHANGE NAME=SIMLINK, LIST=ALL 

INCLUDE SYSLIB(SQCOBOLA) TEST SUBSYSTEM 00000010 

INCLUDE SYSLIB(BTAMSIM) BTAM SIMULATOR 00000020 

INCLUDE SYSLIB(SIM3270) SCREEN PRINTING 00000030 
/* 
LLM HHH EHH AKHEAKEKKKHKK KKK KKKKkKkkkhkkkkkhikikkik 
//* LINK EDIT THE TEST INTERCOMM SYSTEM. * 
//* NOTE THAT THE INTERCOMM LKEDT PROC PLACES THE LOAD MODULE ON * 
//* THE MODSCR LOAD LIBRARY CREATED ABOVE. * 
//* IT IS NOT NECESSARY TO RE-DO THE WHOLE LINK TO REPLACE 1 MODULE * 
//* IN THIS CASE, ALL YOU SHOULD DO Is: * 
//* 1) REASSEMBLE OR RECOMPILE THE CHANGED NEW MODULE INTO A * 
//* SEPARATE LOAD LIBRARY * 
//* 2) CHANGE THE SYSIN DD STATEMENT TO //SYSIN DD * * 
//* FOLLOW IT WITH INCLUDE CARDS * 
//* FOR THE MODULES YOU WISH TO REPLACE * 
//* 3) FOLLOW THOSE INCLUDES WITH THE FOLLOWING 3 CARDS: * 
//* INCLUDE SYSLMOD(SIMICOM) * 
//* ENTRY  PMISTUP * 
//* NAME SIMICOM(R) * 
//* 4) INSERT A DD STATEMENT FOR THE LOAD LIBRARY ON WHICH THE * 
//* REPLACEMENT MODULES RESIDE * 
//* 5) CHANGE THE RESTART PARM ON THE JOB STATEMENT * 
//* TO POINT TO THE LKED.LKED STEP. * 
[ [eee kakiknkkkkkakikkkhkhkkkihkikkkkikkkkkkkihhkkhkiknhikkkkkakahihik 
//LUKED EXEC LKEDT,Q=TEST,LMOD=SIMICOM, 
// PARM. LKED=’ LIST, LET, XREF , NCAL, SIZE=( 250K, 100K) ' 
//SYSIN DD DSN=&&INCL(SIMLINK) ,DISP=(GLD, PASS) 
//MODREL ODD DSN=INT.MODREL, DISP=SHR 
[ [RRR kkakhhkhkkikkhkkkkdkkkkikhakikitkhakikhikkhhhihk 
//* LINKEDIT THE DYNAMICALLY LOADABLE SUBROUTINE * 
//* FROM MODTEST (Q= POINTS TO IT) TO MODSCR * 
[ [eeu kkkkkkkkkkkkekkkkikkkkhkkkkkkkkhkikkkkkikhikhkkkhkkkkhhtkkkkkkkihkkhik 
//LINKSQB EXEC LKEDT,Q=TEST,LMOD=SQCOBOLB 
//SYSIN DD 6—* 

INCLUDE SYSLIB(SQCOBOLB) 


Figure 53. Linkedit and Execution JCL for Simulation Mode (Page 2 of 3) 
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[ [eek ae ER KKK KERR KEKE 


/{* EXECUTE INTERCOMM IN SIMULATION MODE * 
[Lea aaa EERE EERE EERE HEHEHE EHH RHERENH HERE K EEE 
//G0 EXEC PGM=SIMICOM, PARM=’ STARTUP’ , TIME=(, 30) 

//STEPLIB DD DSN=INT.MODSCR,DISP=(OLD, PASS) 

// DSN=INT.MODLIB, DISP=SHR 

// DSN=INT.MODREL, DISP=SHR 

// DSN=SYS1.COBLIB, DISP=SHR COBOL LOAD LIBRARY 
//INTERLOG DD DSN=&&INTLOG, DISP™(NEW, PASS), 

// DCB=(DSORG=PS, RECFM=VB, BLKSIZE=4096 , LRECL=4092,NCP=8,OPTCD=C), 

// SPACE=(TRK, (10,5) ) ,VOL=SER=INT100,UNIT=SYSDA 

//SMLOG DD SYSOUT=A,DCB=(DSORG=PS, BLKSIZE=120, RECFM=FA) 

//STSLOG DD SYSOUT=A,DCB=(DSORG=PS , BLKSIZE=120, RECFM=FA) 

//SYSPRINT DD SYSOUT=A,DCB=(DSORG=PS, BLKSIZE=141,LRECL=137, RECFM=VA) 
//RCTO0O DD DSN=INT.RCTO00, DISP=SHR, DCB=(DSORG=DA, OPTCD=RF) 

//PMIQUE DD DSN=INT.PMIQUE,DCB=(DSORG=DA,OPTCD=R) ,DISP=SHR 

//BTAMQ DD DSN=INT.BTAMQ, DCB=(DSORG=DA, OPTCD=R) , DISP=SHR 
//INTSTOR2 DD DSN=INTSTOR2 , DCB=(DSORG=DA, OPTCD=EF , LIMCT=3) , DISP=SHR 
//INTSTOR3 DD DSN=INTSTOR3 , DCB=(DSORG=DA, OPTCD=EF , LIMCT=3) , DISP=SHR 
//* TEST DATA SETS FOR SAMPLE SUBSYSTEM 

//STOKFILE DD DSN=VSAMSD1.STCKFILE.CLUSTER,DISP=OLD, 

// AMP=(AMORG, ’ RECFM=F’ ) 

//PARTFILE DD DSN#INT.BETA.PARTFILE,DISP=OLD, 

// DCB= (DSORG=DA, OPTCD=R) 

//* DATA SETS FOR SIMULATED TERMINAL -- TEST1 

//TEST1 DD DSN=INT.TTEST1, DCB=DSORG=PS , DISP=OLD 

//SCRTEST1 DD SYSOUT=A,DCB=(DSORG=PS, RECFM=FA, BLKSIZE=121) 

//SIMCARDS DD * 

TEST1, 002 

//PMISTOP DD DUMMY DELIMIT INTERCOMM FILES 

//* FAR PARAMETERS 

//* (TO USE, CHANGE ICOMIN TO DD *, FOLLOW WITH FARS INLINE) 
//ICOMIN DD DUMMY 

//* DYNAMIC LINKEDIT DATA SETS (IF NEEDED) 

//D¥NLLIB DD DSN=INT.MODSCR,DISP=(OLD, PASS) 

//DYNLPRNT DD SYSOUT=A 

//DYNLWORK DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS) (REL 9 ONLY) 
//* 

//STEPCAT DD DSN=VSAMSD1,DISP=SHR (IF NEEDED) 

//SNAPDD DD SYSOUT=A,SPACE=(CYL,5) ,FREE=CLOSE 

//SYSUDUMP DD SYSOUT=A 

//* 

//ABNLIGNR DD DUMMY FORCE ABEND-AID TO IGNORE DUMP (PRODUCE IBM DUMP) 
L [RHE HHRMA KKK HH KKK eee 


//* PRINT INTERCOMM LOG GENERATED BY THE TEST * 
] OOOO ni inhibi kiki ikkiink 
//INTERLOG EXEC PGM=LOGPRINT,COND#EVEN 

//STEPLIB DD DSN#INT.MODREL, DISP=SHR 

//SYSPRINT DD SYSOUT=A, DCB=(DSORG=PS, BLKSIZE#=121) 

//INTERLOG DD DSN#&&INTLOG, DISP=OLD, DCB=BLKSIZE=5000 

//SYSIN DD DUMMY 

// 
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Figure 54. SIM3270 Printout from Simulation Mode Execution (Page 21 of 22) 
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Figure 54. SIM3270 Printout from Simulation Mode Execution (Page 22 of 22) 
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Chapter 12 


SUBSYSTEM TESTING IN TEST MODE 


124k INTRODUCTION 


All of the testing functions may be performed using the Intercomm 
Test Mode of operation without a Front End defined. Rather than 
receiving messages from a terminal, the Test Monitor reads messages 
into the system from a card-image data set. Snaps of input (snap 
id=15) and output (snap id=20) messages constitute a history of Test 
Mode execution. Essentially, the Front End is replaced by the Test 
Monitor (PMITEST) to drive the Back End as usual. In this way, 
subsystem testing can be going on in one or more regions or address 
spaces without affecting the on-line system. Figure 56 illustrates a 
sample reentrant COBOL subsystem (SQCOBOL) designed for the same 
purpose as SQCOBOLA, but using the Edit, Output and Change/Display 
Utilities. Note that SQCOBOL was compiled using the Release 9 version 
of COPY members (see Appendix B). 


12.2 TESTING A SUBSYSTEM IN TEST MODE 


To add and test an application subsystem in Test Mode, do the 
following: 


NOTE: Steps preceded by an asterisk (*) may often be performed 
for the application programmer by an installation’s 
Intercomm System Manager. Appendix C summarizes the 


Intercomm Table entries. 


1. Compile and linkedit the application progran. Appendix A 
describes Intercomm-supplied COBOL JCL procedures. 


*2. Create or add to a USRSCTS member on a user test library to 
contain a Subsystem Control Table Entry (SYCTTBL macro) which 


describe the subsystem. Reassemble and link INTSCT which 
copies the USRSCTS member from the test library (see Figure 
57). 


*3. Create or add to a USRVERBS member on the user test library 
to contain an Edit Control Table (VERBTBL) entry for editing 
of input test messages by the Edit Utility. Reassemble and 
link PMIVERBS which copies the USRVERBS member from the test 
library (see Figure 57). 


*4, If a Fixed Format output message (VMI=X'72') is created for 
processing by the Change/Display Utility, code an entry for 
the CHNGTB (see Figure 57) to define the DESOOO data set 
entry number for the File Description Record (DES00001--see 
Figure 58). The PMIEXLD utility must be used to load the FDR 
to the DESOOO file (see the Utilities Users Guide and the 


Operating Reference Manual). 
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5. Code, assemble and link and add an INCLUDE statement for the 
OFT load module RPTnnnnn (RPTO0100 and RPT00501--see Figure 
58) to the Output Format Table (PMIRCNTB) in the Test Mode 
Intercomm linkedit for output message formatting by the 
Output Utility. 


6. Prepare test messages via the SIMCRTA utility or as direct 
card-image input data (SYSIN data set). An input test 
message consists of a header card, detail cards, and a 
trailer card, grouped together as illustrated in Figure 60. 
Figure 59 details the required card formats. The message 
area in the Test Monitor will accomodate a message text up to 
958 bytes long. Longer messages would require a modification 
to the Test Monitor (PMITEST), as described in the Operating 
Reference Manual. 


*7. Add control cards to the linkedit deck for the user program, 
unless the subsystem is dynamically loadable (see Figure 61). 


*8. Linkedit to create an Intercomm Test Mode load module (see 
Figure 61). 


9. Create test data sets and add DD statements for them to the 
execution JCL. 


10. Execute in Test Mode with test messages in card-image format: 


a. Single-thread test the subsystem; to test a reentrant 
subsystem, initially specify MNCL=l in the subsystem’s 
SYCTTBL macro. 


b. Multithread test a reentrant subsystem (change MNCL) 
using several test messages. 


Test Mode execution is activated by the parameter 'TEST’ on 
the Intercomm EXEC statement. Figure 61 illustrates a sample 
execution deck with test message input (DD statement SYSIN) 
for the sample inquiry program and JCL to print the system 
log. 


The resulting snaps for the test mode execution of the sample 
inquiry subsystem are illustrated in Figure 62. 


The System Log printed after executing in Test Mode with the 
sample inquiry subsystem is shown in Figure 63. 


11. Test the subsystem concurrently with other application 
subsystems. 


Note: to implement the sample subsystem for on-line execution, it 
would be necessary to code a BIVERB macro (in USRBTVRB--see 
Chapter 11) as follows: 


BIVERB VERB=RTRQ,SSCH=R,SSC=Q , CONV=18000 , EDIT=YES 


168 


Chapter 12 


Subsystem Testing in Test Mode 


IBM OS AMERICAN NATICNAL STANOARO COBOL 


PP §734-CB2 Va RELEASE 1.25 10NOV7T 


000100 IOENTIFICATYON DIVISION. 

C000200 PROGRAM=-ID. SQCOBCL. 

PO0300 REMARKS. SUBSYSTEM CODE IS *RO*%, VERB IS 
9004900 ENVIRONMFENT DIVISION. 

C9050G DATA DIVISION. 

900600 WORKINGeSTORAGE SECTION. 

OO07TIC 77 FIXED-FORMAT“NAME PIC X¥(12) 
00980 77 SLASH PIC x 
eo0900 BD AM-READ-VALUE PIC x 
tc1900 DO-PART PIC x8) 
091100 bO-STOCK PIC XCF) 
¢01230 ERROR-FQRMAT. 

001300 05 FILLER PTC X€7) VALUE ®255005N". 
001400 CS FILLER PIC $9(3) VALUE #501 COMP. 
901500 eS FILLER PIC X€7} VALUE °24°051N®%. 
031600 MESSAGE ~TAPLE. 


*RTRQ?*, 


VALUE *SSRG00010 
VALUE °7/*. 
VALUE "0°. 
VALUE °PARTFILE®*. 
VALUE °STOKFILE®. 


201700 
So01a00 
001900 
02000 
302100 
oo220c 


AANAANANNANAAIAAANANAANANNNNAANDNANNA 


MSG-A 
MS6-8 
MSG-C 
“SG-9 
MSG=E 


PTC x€12) VALUE "PART NUMBER ¢ 
PYC XC11) VALUE © NOT FOUND. °. 


Perc x¢5) 


PIC X€29) VALUE °. 


HEXCODES COPY ICOQMMEXC. 


HEXCCOES. 
HEX=06 
coDE-00 
HEX=-15 
CooeE-21 
HEX<-37 
COOE-55 
HEY=-50 
CODE=-E0 
HEX=Si 
CODE-81 
HExX-52 
CODE~#2 
HEX=5§3 
CoDeE-83 
HEX=-54 
CODE ~Aa4 
HEX-55 
CODE=-85 
HEX=56 
COOE -86 
HExX=-57 
CODE -8@7 
HEX=-72 
Cooe-114 
HE X= FF 
CODE-255 


PIC xX VALUE *® *. 
REfEFINES HEX-00 
PIC X VALUE "N®. 
REDEFYINES HEX-15 
PIC <x VALUE ©* °&, 
RECEFINES HEX-37 
PTC X VALUE @&*, 
REDEFINES PKEX=50 
PTS X WALUE "J, 
REDEFINES HWEX-51 
PIC mw VALUE °K®, 
RENEFINES MEX-52 
PIC X VALUE *L®. 
REDEFINES HEY¥+53 
PTC X VALUE me. 
REDEFINES HE xX~54 
PIC KX VALUE *N®f, 
RENEFINES WEX=5§ 
PIC X VALUE *0*, 
REOEFINES WE X-56 
PIC X V&LUE *P*, 
REDEFINES HEX-57 
PIC XK VALUE "2°, 
REOEFINES HEX-72 
PIC yw VALUE #8*, 
REDEFINES HEX~FF 


VALUE "PART © 
PTC xC24) VALUE * NOT 


FOUND IN WAREHOUSE °. 
MESSAGE CANCELLEDe*. 


00000100 
poaoo200 
99000300 
00000400 
90000500 
00000600 
g0000700 
nooo0r00 
20000200 
00001000 
00002100 
00001200 
90001300 
00001400 
00001509 
¢0001600 
99001700 
co001A00 
90002903 
oo002000 
00002100 
eo002200 
00002500 
00002350 
00002352 
00092490 
ocar2sac 


Figure 56. Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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a0051 #602300 01 COBREENT-COOES coPY ICOMSBS. 

a0052 ©1 COBREENT=CODES. 00001000 
99053 THESE CODES REPRESENT OFFSETS FOR ROUTINE ADDRESSES IN THE 00002000 
00054 TABLE NAMED REENTSGS. ONLY THE “OST COMMONLY USED VALUES 00003000 
00055 ARE INCLUDED HERE’: THE USERS “ANUAL HAS A CCMPLETE LIST. 00004000 
00056 IF CFFSEYT O00+e THEN TRUE OFFSET=-( OF FSET?1) 90005000 
00057 MAPFREE PIC COMP VALUE 91. 00005500 
00058 FECMRLSE PIC COMP VALUE &7. 00006000 
00059 FESEND PIC COMP VALUE 83. 00007000 
00060 FESENDOC PIC COMP VALUE 79. 00008000 
coa61 DYN=ALLOCATE PIC 99 COMP VALUE 75- 00009000 
00062 DYN=ACCESS PIC CCMP VALUE 71. 00010006 
N0067 MAPURGE Pic 4 COMP VALUE 67. 00011000 
ca064 MAPCLR PIC COMP VALUE 636 00612000 
99065 MAPE'D PIC COMP VALUE 59. 20013060 
270066 MAPOUT PIC COMP VALUE 55. 00014000 
00C67 waP]® COMP VALUE 51. 00015000 
600628 INTUNSTO COMP VALUE 47. 00016000 
0Go6°e INTSTORE PIC COMP VALUE 43-6 oo0e17000 
0097¢ INTFETCH PIC COMP VALUE 00018000 
co071 FEC“EOBK PIC COMP VALUE 00019000 
coo72 FECMOOR PIC COMP VALUE 00020000 
00073 OG-wRITEX PIC COMP VALUE 00021000 
oco7s DQ=READX PIC COMP VALUE 00022000 
00975 DQ-sPITE PIC COMP VALUE c0023000 
C0076 OQ-RE AOD PIC COMP VALUE 00024009 
00077 OO0-CLOSE Pic ° COMP VALUE 00025000 
oco78a DQ-OPEN PIC COMP VALUE 90026000 
00079 DO-aUILO PYC ¢ COMP VALUE o0c27C06 
cooad FH-SELECT PIC COMP VALUE ooo280c0 
00081 FH-RELEASE PIC COMP VALUE 00029000 
ooge2 FH-eFA0 PIC COMP VALUE 00030000 
GOORS FHeowRITE PIC COMP VALUE 90031000 
00084 FHeGET PIC COMP VALUE 00032000 
o0g0es FHP UT PTC COMP VALUE 00033000 
00086 FH-RELEX PIC COMP VALUE 00034000 
00087 FH-FELOV PIC < COMP VALUE 07035000 
oooaR COBPUT PIC COMP VALUE 00036000 
oaase? MSSCOL PIC COMP VALUE 00037000 
00090 COBSTORF PIC COMP VALUE 00038000 
00091 CONVERSE PIC COMP VALUE 00039000 
00092 DBINT PIC COMP VALUE oo0040000 
00093 LoGPuUT PIC COMP VALUE 00041000 
60094 PAGE-FILE PIC COMP VALUE 00042000 
00095 FH-GETV PIC COMP VALUE 96-6 00043000 
00096 FH<-ePuUTY PIC 999 COMP VALUE 100. 08044000 
"0097 CODES 104 AND UP INDICATE USER ADDITIONS TO THE TABLE 00045000 


Cc 
Cc 
Cc 
Cc 
Cc 
C 
Cc 
Cc 
C 
Cc 
c 
C 
C 
Cc 
C 
Cc 
Cc 
Cc 
€ 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
C 
C 
Cc 
C 
Cc 
Cc 
C 
Cc 
Cc 
c 
Cc 


00099 (92400 01 FILLER PTC X€22) VALUE "END OF WORKING STCRAGE®. 


Figure 56. Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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3 
00106 6fF2590 LINKAGE SECTION. 


oo101 002600 O01 INPUT=MESSAGE COPY ICOMINMG. 
001G2 C 01 INPUT=MESSAGE. 00060100 
oo10s Cc 0% MESSG=HDR. 00000200 
eq1d4 Cc 06 MSGH-LENGTH Pic $9999 cop. 00000300 
90105 C 96 MSGH-QPR PIC Xe 20000400 
00106 C 06 MSGH-RSCH PIC X. 00000500 
oo107 Cc 06 MSGH-ASC PIC Xe 90000600 
0010A Cc 06 MSGH-SSC PIC Xe 00000700 
00109 Cc 05 *SGH-MAN PIC XXX. ocqooRra0 
00110 C 06 MSGH=DATE. 90000900 
00111 C 08 MSGH-YR PIC 99, 90001000 
oo112 Cc 08 MSGH-PERIOO PTC Xe 00001100 
00113 C Of MSGH-JULIAN=DAY PIC 999. 90001200 
00114 C 06 MSGH-TIME, 29001300 
co11s C 08 MSGH=HH PIC 99. 00014090 
00116 C 08 MSGH-"6é PIC 99. 90001500 
00117 C C8 =MSGH-SS PIC 99. 90001600 
00118 C Of8 MSGH-TH PIc 99. 00001700 
00119 C 06 MSGH-TIO. "90014800 
00120 C 08 MSGH-TI? PIC X. "0001900 
00121 ¢ 08 KSSH=TI2<3 PIC XX. 90002000 
00122 C C8 MSGH-TI4<5 PIc 99. 00002100 
90123 C 06 MSGH=CON PIC $9999 COMP. 00002200 
00124 C 06 *SGH-PID PIC XC5). cooo2300 
00125 C 96 MSGH=SSCH PIC Xe 20002400 
00126 C C6 MSGH-US2 PIC X. 00002500 
(0127 ¢ 06 “SGH=PMN PIC XX. 900026¢0 
90128 C 06 MSGH-LGG PIC Xe 90602700 
90129 C 96 ™SGH-48LK PIC ¥, °0002750 
OO130 C 06 MSGH-YMI PIC Xe 90002800 
00132 002790 92 INPUT=<TEXT-EDITED. 

. 06133 oo28c0 05 PNO-IN PIC x¢5)-~ 
20134 002900 O05 WHS=IN PIC 9(3). 
00135 003009 01 SPA=ADOR PIC XC4)e 
00136 093100 01 SCT=ADOR PIC xX(4). 
00137 003200 01 ICOM=RETURN PIC $9(7) COMP. 
00138 OO33C0 01 OYNAMIC@WORK=SPACE COPY ICOMOWS. 
e0139 C N1 DYNAMYIC-VORK=-SPACE. 99000100 
00140 C 02 OUTPUT=@MESSAGE» 9000200 
00141 C 04 OMESSG-HDR. 90000300 
00142 C 06 OMSGH=-LENGTH Prc $9999 COMP. 00000400 
o0143 Cc 06 OMSGH=QPR PIC Xe ooo0c0soc 
90144 C 06 OMSGH=R8SCH PIC Xe 00000600 
60145 C 06 OMSGH=RSC PIC Xe n0000700 
00146 C 04 OMSGH=SSC PIC Xe 00000800 
00147 C 06 OMSGH-MMN PIC XXXe 00090900 
0014A C 06 OMSGH-DATE. ooec1000 
00149 C OA OMSGH=YR PIc 99, 90001100 
00150 C 08 OMSGH-PERIOD PIC Xe 0090120C 
30151 C 08 OMSGH=JULIAN=DAY PIc 999, 00001300 


Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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30152 
00153 
00154 
00155 
00156 
90157 
00158 
q0159 
00160 
"0161 
90162 
016% 
00164 
90165 
"0166 
AO167 
09168 


30170 
00171 
70172 
COLTS 
00174 
00175 
£0176 
90177 
00178 
$0179 
00180 
00181 
oo182 
-¢ed1az 
00184 
001285 
00186 
00187 
90188 
90189 
00190 
00191 
90192 
90193 
00194 
90195 
90196 
00197 
90198 
001995 
00200 
00201 
00202 
0203 


Figure 56. 


AMANANHAAIANANANANANAAANN 


003400 
603500 
003600 
903700 
0035800 
903900 
¢94000 
004100 
e04200 
C04390 
004490 
204500 
co4600 
€04709 
994800 
994900 
o0a5000 
905100 
n¢S200 
905300 
1954190 
005590 
co5600 
£95790 
0058995 
0053990 
o006000¢ 
096100 
0046200 
296300 
006400 
006500 
006609 
'06700 


OMSGH-TIME. 
98 OMSGH-HH 
08 OMSGH=-«K 
08 OMSGH-SS 
08 <QMSGH-TH 
OMSGH- TID. 
08 OMSGH-TI1 
08 OMSGH-TI2=3 
08 OMSGH-TI4=-5 
OMS GH=CON 
OMSGH-P ID 
OMSGH-SSCH 
OMSGH-USR 
OMSGH-EFMN 
OMSGH-LOG 
OMS GH=@LK 
OMSG KH-vMI 
04 TEXT-OUT PIC 
02 FIXED-TEXT. 
94 FIYED-FORMAT<-DATA 
04 OUT-PART=-DATA 
4 QUT<-PARToPRC 
04 WdHS-O0UT 
04 OUT-STOCK-OATA. 
96 OUT=ST%CK-WLC 
36 OUT<STOCK-LEV 
96 OUT-STOCK=-LDT 
C6 OUT-STOCK=-ORD 
96 OUT=-STNCK-OOT 
02 ERROR-TEXT. 


PIc 
PYc 
PIC 
PIC 


PIC 
PIC 
PIc 
PIC 
PIC 


04 ERROR-"SG-FORMAT@ID PIC XC16).~ 


08 ERROR-MESSAGE 
C2 RECIRDWAREA, 
04 PART=-RECORD. 


PIC 


Subsystem Testing in Test Mode 


PIc 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 


PIC 


PIC 
PIC 
PYC 
PYCc 
PIc 
PIC 


X(€150). 


XC12)6 
X64). 


99. 
99. 
99.6 
99-6 


Xe 
XXe 
99. 
$9599 
¥C5). 
Xe 

Xe 
XXe 
Xe 

Xe 

Ye 


COMP. 


339.9999. 


Z2ZZ9~ 


MU23)6 


2022299799. 


X18). 


2eZ229999~ 


X(8). 


X¥€50)~ 


NOTE 190 CHARACTER BOAM RECORD WITHOLT KEYS. 


06 PeREC@PART<OATA. 
98 P-REC@PIN 
08 PMRECHIES 
OR P-RECSUNT 

06 PeREC-PRC 

0&6 P-REC-MFR-NUM 

96 FILLER 

N& STOCK-RECORD. 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


NOTE 80 CHARACTER VSAM 
06 OELETE“-CHARACTER PIC 


06 S-REC-KEY-FIELO. 
OR S-REC-UHS 
08 S-REC-PNO 

06 FYLLER 

06 S-RECHeSTOCK-OATA. 
0e@ S=-REC-VLC 


XC1IT73.6 


RECORD. 
Ne 


PIC 9¢3). 
PIC 9¢5). 
PIC X(26).- 


PIC x23). 


Sample Inquiry Subsystem; 
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00601400 
30001500 
90001600 
00001700 
00001800 
00001900 
90002000 
00002100 
00002200 
000023500 
90002400 
90002506 
00002600 
90002700 
g0G602750 
reoo2so00 
C¢37002900 
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006800 
R9490C¢ 
097000 
9¢71¢C0 
C972C0 
Coz7300 
0074008 
007500 
407600e 
007790 
007800 
097909 
oo0e8000 
§0A190 
008290 
098300 
008490 
0085939 
008600 
008700 
6asang 
008900 
d0¢oon 
009100 
009200 
009300 
009400 
009500 
009600 
009700 
009800 
009900 
or1eo00 
01010C 


Subsystem Testing in Test Mode 


08 S-REC-LEV PIC 
NOTE SeREC-LEV IS 
98 S-REC=LOT PIC 
28 S=REC-ORD PIC 
NOTE SeREC-ORD IS 
08 S$=REC-00T PIC 


02 STATWD PIC 


9(7) COMP-3. 
4 CHARACTERS LONG. 

X(6)6 

9¢7) COMP=-3. 
4 CHARACTERS LONG. 

X(6) 6 


$9¢7) COWP SYNC. 


NOTE THIS PUTS US ONTO A FULLWORD BOUNDARY ALIGNMENT. 
02 FH-STATUS REDEFINES STATUD. 
04 FH-STATI PIC Xe 
8B I0K 
§8 YOERROR 
8B NCT=FOUND 
8& NO-00 
04 FeH-STAT2 
94 FILLER 
52 ExXTOSCT 


VALUE 0. 
VALUE 1. 
VALUE 2.6 
VALUE 9. 
PIC Xe 
PIC X(2). 
PIC X(48). 
NOTE WE ALIGNED WERE. 
02 RBN-WORD PIC $93¢(7) 
02 RBN=-FILLER REDEFINES RBN-WORD. 
04 FILLER PIC 
04 RBN PIC 
02 CP-RETURN PIC 
8&8 SUCCESSFUL=-C OBPUT 
02 CURRENT-FILE PIC 
G2 wORD PIC 
02 FHR=STATUS REDEFINES WORD. 


ARE STILL 


COMP SYNC. 


04 FHR=-STAT1 PIC 
F& NO-OOR 
04 FILLER 
32 FHeREAD<FL AS 
8& BDAM 
02 KEY-FTELO 


PI¢ 
PIC 


PTC 


Xe 


¥(3). 
Xe 


9¢8). 


010200 02 PARTNUMBER. 
010300 74 FILLER 9(4). 
ore400 94 P-OIGIT Je 
019590 02 OATE-ENIT. 
010600 04 D-E-40 
£10700 v4 D-E-0AY 
0210890 04 O-E€-YEAR 
910900 04 FILLER 
911000 92 DATE -"OVE. 
011100 04 D=-4-45 : XC2). 
012209 0 SLASH2 Xe 
0113500 94 DeM-DAY X(2). 
011400 04 SLASH? Le 
611500 04 N-M-VEAR X22). 
g11600 02 NG@=-PART-MESSAGE. 
811700 04 MSG-1 

011800 04 NOPART-PNO 
021900 04 MSGe2 


Xx(2). 
102) 6 
X(2). 
XC2). 


XC12). 
XC5)- 
X(11). 


Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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012000 02 NOWARES“MESSAGE. 

012100 04 MS$G6-3 XC5)-6 

012200 04 NOWARES=PNO x¢5). 

012300 04 MSG=4 R24) © 

012400 04 NOWARES-WwHS ‘ XC3)6 

012500 02 CANCEL“-MESSAGE. 

012600 ge CAN-CODE XC13) JUST RIGHT. 
012700 04 CAN@-FILE“NAME x(8). 

012800 9¢@ S65 X20). 


Figure 56. Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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Figure 56. 


0135100 
013200 
013300 
013400 


013600 
013700 
6013800 
013900 
014000 
014100 
014200 
014300 
014400 
0145090 
014600 
814700 
0174890 
614900 
015000 
015100 


015300 
015400 
015590 
015600 


915600 
015900 
016090 
£16100 
916200 
916300 
016400 
016505 
616600 
014700 
016800 
(16900 
017600 
017106 
017200 
817300 
017400 
Ci7500 
617600 
917700 
017800 


013000 PRCCEDURE DIVISION USING INPUT-MESSAGE 


OLOO-MAIN@-LINEs 


SPA~ADOR 

SCT-AODOR 

1COM-RE TURN 
OYNAMTC=WORK=-SPACE. 


MOVE #0 TO YCOM-RETURN. 

MOVE MESSG-HOR TO OMESSG=-HOR. 
MOVE OMSGH-RSCH TO OMSGH-SSCH. 
MOVE OMSGH-RSC TO OMSGH-SSC. 
PERFORM 1000-READ-PART-FILE}W 
PERFORM 1100-FH-“BDAM-READ.~ 


IF JOK 


ANDO NOT NO-ODR 

AND P-REC-PIN EQUAL PNO-IN 
PERFORM 2000-READ-STOCK=-FILE 
PERFORM 2100 -FH-VSAM-RE 0 


TF 


IQK AND NOT NO=-00R 
PERFORM 4000-SENO-REPLY-MESSAGE. 


PERFORM %100-COBPUT-CALL- 


1000-READ-PART<F ILE. 


GOBACK. 


MOVE PNO-IN TO PARTNUMBER. 
“OVE P-DIGIT TO RSN-wORD. 
MOVE DO-PART TO CURRENT-FILE. 


11CO-F HBO AM-READS 


MOVE SDAP-READ-VALUE TO FH-READ-F LAG. 
PERFORM SOQQ-F H=SELECT=“ROUTINE} 
IF NQ=DD 

PERFORM 9909=-N0-DD-ROUT INE 


ELSE 


PERFORM 1200 -FH-8DAM-RE AD-CONT INUE 


IF 


NO-ODR 
PERFORM 9Q000-NO-Q00-ROUTINE 


ELSE 


IF 


ELSE 


1F 


YOERROR © 
PERFORM 9100=<IO-ERROR-ROUTINE 


NOT=FOUND 
PERFORM 9150-NOT-FOUND-RTN 


ELSE 


IF 


P=REC-PIN NOT EQUAL PNO-IN 
PERFORM 9150-NOT~FOUNO=RTN 


ELSE 


MOVE P-REC=PART=DATA TO OUT=PART=OATA 
MOVE P-REC=-PRC TO OUT-PART=PRC. 


Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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018000 
918100 
018200 
018300 
v18400 
018500 
618600 
€18700 


018900 
019000 
019100 
619200 
019300 


019500 
019600 
319700 
0198C0 
019909 
020000 
020100 
920200 
020300 
620400 
020500 
020600 
520700 
020800 
020900 
021000 
021100 
021200 
021300 
021400 
021500 
021600 
€21700 
021800 
021900 
022000 
022100 
022200 
022300 
022400 
922500 


Subsystem Testing in Test Mode 


1200 -FH-BDAM-READ-CONTINUE. 

MOVE SPACES TQ FH-STATUS- 

CALL *COBREENT® USING FH-READ 
EXTOSCT 
FH=STATUS 
PART@RECORD 
RBNe 

PERFORM 3100-FH-RELEASE-ROUTINE. 


2000-READ-STOCK=-FILE. 
MOVE DD-STOCK TO CURRENT=FILE. 
MOVE WHS-IN TO S#REC-WHS. 
MOVE PNO-IN TO S@REC@PNO. 
MOVE S-REC@KEY-FIELO TO KEY-FIELD. 


2ICO-FH-VSAM=READ.W 
MOVE ZERO TO FH-READ-FLAG. 
MOVE LOW-VALUES TO EXTOSCT. 
PERFORM 3O000-F H-SELECT-ROUTINE. 
IF NO-00 
PERFORM 9000-NO~-DD-ROUTINE 
ELSE 
PERFORM 2200-F H=VSAM-RE AD-CONTINUE 
IF NO-OOR 
PERFORM 9000-NO-DD-ROUTINE 
ELSE 
IF IOERROR 
PERFORM 91C00-I1O“ERROR-ROUTINE 
ELSE 
IF NOT-F OUND 
MOVE MSG-C TO 4SG=3 
NOVE “S6-0 TO “SG-4 
MOVE PNO-IN TO NOMARE S-PNG 
MOVE WHS-IN TO NOWARES<WHS 
MOVE NOWARES “MESSAGE TO ERRGOR-MESSAGE 
PERFORM 9200 -SENO-ERR ORME SSAGE 
€Lse 
MOVE SeRECeWLC TO OUT-STOCKeyLC 
MOVE S“RECeLEV TO OUT-STOCK-LEV 
MOVE S@REC*LOT TO OATE-EDIT 
PERFORS 2300-0ATEEDI TING 
MOVE ODATE-"OVE TO OUT-STOCK=-LOT 
MOVE SeRECeORO TO OUT-STOCK=-ORD 
MOVE S-REC-00T TO OATE-EDIT 
PERFOR™ 23500-DATE-EDITING 
MOVE DATE“"OVE TO OUT-STOCK=<<0T. 


Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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622700 
022800 
022900 
023000 
023100 
023200 
09233900 
023400 


023600 
e€237090 
023800 
023900 
024000 
024100 


0243500 
024400 
024500 
024600 
0247090 
024800 


025000 
025100 
025200 
025300 
025400 


025600 
025700 
6025800 
025909 
026000 
0261090 
626200 
026300 


026500 
026600 
026706 
026800 
026900 
027000 
027100 
027200 


Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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22 00-F H-VSAM-READ=-CONT INUE. 

MOVE SPACES TO FH-STATUS. 

CALL "COBREENT® USING FH-GETV 
EXTOSCT 
FH-STATUS 
STOCK -RECORD 
KEY-FIELO. 

PERFORM 3100 <F HeRELEASE-ROUTINE. 


2300 -OATE“EDITING. 
MOVE DeE“YEAR TO D-M—-YEAR. 
MOVE SLASM TO SLASHI1. 
MOVE DeE-DAY TO D--DAY. 
MOVE SLASH 10 SLASH2. 
MOVE O-E-M0 TO 0-4%-4O~e 


SOO0-FH-SELECT=ROUTINE} 
MOVE SPACES TO FH-STATUS. 
CALL *CNBREENT® USING FHeSELECT 
EXTOSCT 
FH-STATUS 
CURRENT@F ILE. 


S1IOO-FHeRELEASE ROUTINE. 
° MOVE SPACES TO FHR-STATUS. 
CALL *COBREENT® USING FH-RELEASE 
EXTOSCT 
FHR-STATUS. 


40 CO-SEND-REPLY-MESSAGE. 
MOVE WHS-IN TO WHS-OUT. 
MOVE FIXED-FORMAT-NAME TO FIXED-FORMAT=DAT A. 
MOVE #192 TO OMSGH-LENGTH. 
MOVE HEX-00 TO OMSGH-RSCh. 
MOVE *H® TO OmMSGH-RSC. 
MOVE HEXY-72 TO OMSGH-VMI. 
MOVE FIXED=-TEXT TO TEXT-OuT. 


&1900-COBPUT-CALL. . 
CALL "COBREENT*® USING COBPUT 
OUTPUT-MESSAGE 
CP-RE TURNS 
IF SUCCESSFUL-COBPUT 
NEXT SENTENCE 
ELSE . 
MOVE CP-RETURN TO ICOM-RETURN. 


(Page 9 of 11) 
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027400 90CD0-NO-O0-ROUTINE. 

027500 MOVE MSG-E TO "S$6-5. 

027600 MOVE fCODE 9 ON * TO CAN=CODE. 

027700 MOVE CURRENT“FILE TO CAN-FILE°NAME, 

027800 MOVE CANCEL=-MESSAGE TO ERROR-MESSAGE. 

0279002 NOTE THIS RETURK COOE CAN CANCEL THE SUBSYSTEM To SUBSEQUENT 
o28000+ MESSAGES IF SYCTTBL CANC=STOP. 

028100 PERFORM S200-SENO~ERROR=MESSAGE. 


028300 ILOO-IO-ERROR-ROUTINE. 

028400 MOVE MSG-E TO MSG-5e 

028500 MOVE "IO ERROR ON * TO CAN-CODE. 
028600 MOVE CURRENT*FILE TO CAN=FILE-“NAME. 
028700 MOVE CANCEL@MESSAGE TO ERROR=MESSAGE. 
o2e800 PERFORM 9200-SEND-ERROR-MESSAGE. 


029000 91L5CHNOT-FOQUND=RTN- 

0291200 MOVE MSG-A TO MSG-1le 

029200 MOVE MSG-8 TO 4S6G-2. 

029300 MOVE PNO-IN TO NOPART=-PNO. 

029400 MOVE NO-PART@MESSAGE TO ERROR-MESSAGE. 
029500 PERFORM 9200 -SEND“ERROR=“HESSAGE. 


C29700 S200°SEND-ERR OR-MESSAGE. 

029800 MOVE 108 TO OMSGH-LENGTH. 

029900 MOVE FMEx-00 TO OMSGH-RSCH. 

0300090 MOVE *U® TO OMSGH-ASC. 

630100 MOVE HEX=-50 TO OMSSH-VAT. 

030200 MOVE ERROR=-FORMAT TO ERROR-MSG-FORMAT—-IDe 
0390309 MOVE ERRIR|-TEXT TO TEXT-OUT. 


Figure 56. Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 
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11Q4-WN 
dS 1d 
dSid 
dNous 
dSIQ 
dSIq 
dSId 
dSId 
dS1Q 
dsida 

dS 1d 
dS1Q 
dWOJ 
WNe-dSId 
dS1G 
dS10 
dnoud 
WN-dSIQ 
WHN-dSIO 
WN-dSI0 
WN-dSIO 
dnOus 
WN-dSId 
dS 10 
WN-dS10 
dnous 
dS10 
dSIQ 
dSI0 
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WN-dSIO 
dSId 
dNnaugs 
asta 
dS10 
dS1Q 
daSIQ 
d$10 


dSIQ 
dO) 
WN-dSIO 
dSIO 
dS1Q 
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dSIa- 


3a $d 
3269 Sd 
Jet so 
9¥17190 SQ 
30ST sda 
3t sa 
at sa 
Jt so 
Jde $d 
Jt sa 
Jt sd 
3S sa 
32 $d 
Je $d 
32 $d 
IT Sd 
$130 sO 
32 $a 
3¢ $d 
Je $a 
J2 Sa 
8130 Sd 
a3¢ SQ 
at sa 
dye Sa 
9130 $d 
Jk $0 
at sd 


C6l-L=HNG 
OLE -L=WNO 
CeT-L=WNO 
O2C-ZL=HNO 
ZOCT-L=HNU 
Gdc-L=nNO 
192-L=nWNO 
ceZ-L=WNQ 
O22-L=WNO 
¥V6T-2 =KNO 
BLI-L=WNO 
6ST-L=WNOG 
LX&T-L=HNO 
9TT-L=WNO 
G60-L=WNO 
9LO-L=WNO 
¥SO0-L=WNQ 
9C0-2=WNO 
BlO-L=KNOG 
000-L=HNO 
06¥-9-=WNO 
LY¥-9=WNOG 
T¥e-9=WNO 
61¥-9-=angd 
V6E-I=HNG 
Z2LE-9=HNO 
0S€ -9=WNO 
TEC -9=WNO 
600-9=WNO 
682-9=HNQ 
L£92-9=KHNO 
CZ -F=WNG 
612-9=WNO 
CEIL-I=WNG 
(9T-9=NNO 
O¥l-9=WNO 
bTl-¥Y=nWNO 
TOt-9=AaNO 
GUU0-Y=eNO 
690-Y=WNG 
660 -Y=HNO 
BIO-3=nwNO 
000-9=aNQ 
To¥-S=aNQ 
CL¥-S=anNngd 
7Sb-GS-HNO 
¢f¥-G-=WNG 
GT ¥-S=nNQ 
L6¥-S=HNO 
VLE -G=WNO 
¥SGE-G=nWNQ 
9ST -G=WNO 


JUd-LHVd-1NO 
VIVO-LYVd-1NO 
VIVO-1LVWUN4-QIXTS 
4x91-Q9X14 
INO-1K3L 
IWA-H9OSHWO 
W18-HIOSWO 
90T7-H9OSWO 
NWY-H9SWO 
YSN-HISWO 
HISS-HISWO 
OIid-HSSWO 
NOJ-HISWO 
G-vVIL-HISWO 
€-2L1-HISHO 
TLI1-HOSHO 
O11-HOSWO 
H1-HOSWO 
SS-HYSWO 
WW-HIOSWO 
HH-HOSWO 
3hil-H9OSWO 
AVO-NVIING-HOSWO 
O01 Y¥Id-HOSWO 
YWA-HISWO 
JLVO-HISWO 
NWW-HISWO 
ISS -HISWO 
ISH-HIOSWO 
HISY-HOSHWO 
¥d8-HISWO 
HLONII-HOSHO 
YQH-9SSIWO 


yaqgv-19OS 
yaagv-vdSs 
NI-SHA 
NI-ONd 
Q3JLLQ9-1xX31-1NdNI 
IWA-HISW 
W18-HISw 
90 1-HYUSH 
Nw -HYSW 
WSN-HISH 
HISS-HISW 
Ol d-H»9 Sw 
NOI-HOSW 
G-vILl-H9SW 
€-ZI1-HISH 
tI1l-HYUSW 


cu 


&£G 


£0 


Chl-LZ=WNG 
OLE -2=WNO 
C¥E-ZL=WNQ 
92C-L=Wwng 
COP-L=WNG 
CR2-L=WNO 
T92-L=WNO 
e¥c-L=WNg 
O22-L=WNO 
S6T-L=WNG 
BLI-L=WNI 
bST-L=2WNO 
L2ZET-L=WNd 
9ET-L=WNO 
G60-L=WNO 
FLO-L=WNQ 
*SQ-Z2=WNO 
9f0-L=nWNO 
BTO-L=WNQ 
0O00-L=WNQ 
06%-9=WNO 
C9¥-9=WNO 
Tee-9=nNO 
b14¥-9=WNO 
v6E-9=HNQ 
CLE -S=WNQ 
OSE -9I=HWNG 
TEE -9=HNO 
602-9=WNQ 
602-9=WNO 
£92-9-=WNG 
2¥2-9=WNG 
612-9-=WNO 


O¥T-S=WNO 
6TT-9=WNG 
lOt-Y=WNd 
SBO0-9=WNO 
690-9=aNO 
GEU-YsuNnNG 
HIO-Y=SWNO 
O0U~9=WNO 
1o64-G=WNG 
CL¥-G=WNO 
CSh~GS=SWNO 
Cf ¥-G=WNd 
GIie-S=nWNG 
L60-G=wWNng 
¥Lt-Gz=hNnO 
WSE-G=WNO 
9f F< -G=WNO 


Sample Inquiry Subsystem; Reentrant (IBM ANS COBOL) 


(Page 11 of 11) 


Figure 56. 
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// TABLES 
//* 
//* DEFINE SYCTTBL FOR SUBSYSTEM 
//* 
//STEPL EXEC LIBELINK,Q=TEST,NAME=INTSCT , LMOD=INTSCT 
//LIB.SYSIN DD * 
./ ADD NAME=USRSCTS 
_/ NUMBER NEW1=100 , INCR=100 
USRSCTS DS OH 
RQ SYCTTBL SUBH=R,SUBC=Q , SBSP=SQCOBOL, LANG=RCOB, OVLY=0, 
NUMCL=10 , MNCL=1 , TCTV=60 , GET=792 
/* 
//ASM.SYSIN DD  DSN=INT.SYMREL(INTSCT) , DISP=SHR 
//* 
//* DEFINE EDIT CONTROL TABLE ENTRY 
//* 
//STEP2 EXEC LIBELINK, Q=TEST ,NAME=PMIVERBS , LMOD=PMIVERBS 
//LIB.SYSIN DD * 
./ ADD NAME=USRVERBS 
_/ NUMBER NEW1=100 , INCR=100 
USRVERBS OH 
RTRQECT RTRQ,D9,256,2, FIX=YES 
P/N,1,7,5,10000111 
WHS ,2,7,3,10000111 
/* 
//ASM.SYSIN DSN=INT. SYMREL(PMIVERBS) , DISP=SHR 
//* 
//* DEFINE CHANGE/DISPLAY TABLE 
//* 
//STEP3 EXEC LIBELINK,Q=TEST,NAME=CHNGTB , LMOD=CHNGTB 
//LIB.SYSIN DD * 
./ ADD NAME=CHNGTB 
| ./ NUMBER NEW1=100 , INCR=100 
CHTB TITLE 'CHNGTB - FIXED FORMAT OUTPUT-DESCRIPTOR NAME TABLE’ 
CHNGTB CSECT 
DC CL8’SSRQ0001’ USED ONLY TO TEST COBOL PGM. GUIDE S/S 
Dc -—sdiF"0" 
PMISTOP 
END 


Figure 57. Table Updates to Implement Test Mode Testing 
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dock aodu 
oo0¢ce0000 
OOTEO0000 
0000000 
006c0000 
09¥c0000 
00220000 
009¢c0000 
00S¢c0006 
004¢c09000 
o0£c0000 
00¢¢c0000 
00Tc0000 
000c0000 
006T0000 
bos Ttooon 
OoLTOOON 
o09T0000 
00STO000 
0Q4T0000 
oo¢<taqo0n 
oo2eTt0000 
OoTTOODD 
oo00T0000 
00600000 
00800000 
00200000 
009900000 
VOGHV0000 
0000000 
00¢£00000 
00200000 
00fa0000 


Gb=OL*BC=WONds*OT=II09 

GS=~UOL*TE=WONs4 e350 SVe=vLvar*GGd= 9Gu9 
¢é=OL*ST=WONS*SGT=9009 

ST=UL*I=WOUA* aNYIduO NUe=VLVG*GSGec=30VU9 
b=Sw3ll *w=WNN 

Ge=~UL*TC=WONs ese 50 SVe=ViVd*GGz=3009 
Gor=-Ol*ec=wous?s [=3009 
Ec=~UL*GI=WOHS*ET=39009 

CI=~OLSI=AWONS* sUNVH NOe=vVilvdatsGcs¢c=3909 
b=SWILITSL=AWNN 

Gf=-ol*et=wous*0 T=5909 

TT=OL* b=WwONd* ohOLLyIUTa=Vivos*SGGd=j0c29 
C=SWILI *9I=WNN 

[es-OLSlc=Wwuds* 9259009 
Gc=ULP*T=WOed Ss ASNOHIYVA LV SNLVLS NIOLSe=VILV0"GS2=3009 
c=SW3all *SG=WwnNn 

ef=01*Ge=wuus*6 T=3009 

2-01 *6T=WONS Ss FIT HYde H=VLVd*Ge72e=3500) 
LI=VUL*SET=aWwous*sv T=3000 
TET=OLSTOWOUSS se SLINN YICHNOe=V1LVO*GSG2=3009 
V=SWILI* =n NN 

S99=OL*ET=“WOUS*Te=3009 
TT=OLSI=HWOUS* sNOTLdl Ll YISIGe=¥1LV0*GSG2=3009 
c>~SWILI*®S=WnN 

L£U=OL*&ET=wouds*2t=300)9 

TU=OLS TaWOusa* se UIGWONN Luvde=yvivya*SS¢c=300)9 
€=SWILTSZ=aNnN 

G2=OL*9=WONA* ALSINGIY SNLVLIS NIOLSs=V1iva*scoc¢e=3009 
T=SWAILI*T=WNAN 


ONJ 
WILT 
n jill 
WILT 
w4ill 
4NI 1 
will 
n4dli 
WILT 
h3jll 
JNI 
WILI 


W311. 


JNI1 
WILI 
Will 
INI 
will 
WALI 
WILT 
WILI 
JNI1 
WILI 
W3ALI 
JNI1 
WILT 
Ww3all 
INI 
WILI 
JNI1 


B=SANITSOOT=HWNN LYOddY 


Lvog9To 


QYOST) 


la 1eTt9 
AQT) 


JTANTI 


SHAB) 


Judo) 


inneto 


S30T¢)o 


ONdeTo 


O0TLAO 


™ 


WILSASGNS AYINONI 3IdWVS YOS JIEVL LVWYHOd LNdLNO + 
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Utilities Table Coding for Test Mode Subsystem (Page 1 of 2) 


Figure 58. 
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00STOGO0 
004610000 
OOS TOO0N 
oo0cTO0000 
ooTTOOODN 
000T0000 
006000000 
00800000 
00200000 
00900000 
005000600 
00+00000 
ousoo000 
00c00000 
o0TO000G 


00200000 
00900000 
00500000 
00700000 
ooc<a00n0n 
a0c00000 
O9fO00000 


9T= 3009" XX 1G0=S3WyN* B=N3I1*9CTHALISAO 
GT=J00D*XXQYO=3WVN* G=NIVAZTT=AL3S 40 
bT=30UD*XXLOT=ASWYUN *S=N397%60TH=13S 50 
ST=IO0I*XXAQITI=AAWVN *G=NA1400T HL39S 40 
OT= 30099 XXITA=4WVN FS 2=NI1922=1395 40 
BV=3003* XXSHA=4WV NOE G=N391*2L=19S 40 
61 =3009 *XXIYd=IWVN*B=NI71*b9=1 9S 40 
GL=JO09*KXINN=IWVA ®G=N317*°6S=139S8S40 
T2=3J00I*XXSAIG=AWV NS BDG=NIT*S=139S8 40 
CU=A0U9*SKXN/d=4WYNEG=NI1MO=1L9S 40 
OL=SQ1FLSSOOT=HONLG YS TOOODYSS=3Aa VN 


WALSASUNS AYMINONI jaldwvyS WuYd 


ONG 
11304 
W404 
114304 
W3ads 


11304 


T1304 
L304 
11304 
V1304 
11304 
YOQHOd 


9T100 
GTQYO 
T1071 
GTAI1 
OTIT1A 
JOSHA 
&TIuUd 
BIINNA 


t¢$3Q 


ctONd 


QOUTOUSS 


1343829 1T0000S 30 


. 


INndiNO LVWYOS GQAKIA JOS ANIA NOLLdIYISAII JV + 


ONI 


C9=O01*CT=WONd*6b2=9009 WALI 

@ *¥HOUNd ee =VIVO*FOT=OL* L=WOu4*GSGe=39G09 KILI 
C=SWILIST=SNAN ANI 

T=SANI1V*TUS=WAN LYOd3u 


mee ee ce cee ee es es es es es os ee we es es se ee ee ee ee ee es ee es ee en ee oe ee ee es ae ee ee ie ee me es ee se ee ee es ee es es es es es es ee es ee ee ees es es ee es es ee ee ee ees ee es ee es ee ee ee es ee ee ee ee 


TVG140 


a 


WALSASUNS AYINONI WOU SINVSSIW YONNRD YOsd BVGVL LYWNYOS LNdLNO + 


J 


Utilities Table Coding for Test Mode Subsystem (Page 2 of 2) 


Figure 58. 
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Card Contents 

HEADER | 1-3. #4|MSG 
6-8 | Low-order byte of S/S code (MSGHRSC) (or 8) _ 
eo-ll | Hi-order byte of S/S code (MSGHRSCH) (or 11) 
20-24 | Sending terminal ID (MSCHTID) = ™” 
50-530 | Front-end Message Number (MSCHBMN) = 
455-57 | VMI value (MSGHVMI); leave blank if EDIT 


required; code 255 if no editing by Edit 
Utility (or 57). 

DETAIL(s) 1-64%** Data for one line of input message. If VMI 
in header card is left blank, a new line 
character is inserted at end of text on every 
card except last one. If the last non-blank 
character is a $§ sign (X’5B’), it will be 
replaced by a NL; the preceding character 
(usually a blank) is kept as part of the 
input. All NL’s are suppressed if editing is 
not required. 

TRAILER 1-3 Generates End of Transmission character 
following the last non-blank character of the 
previous detail card. 


Contents Ending 
of Card Character 
EMS EOT (X'37") 
EOT EOT (X'37') 
ETX ETX (X’'03") 


ETB ETB (X'26") 


*3-digit integer values (from 000 to 255) or a corresponding single 
alphnumeric character in the low-order field position. 


**64 is default maximum. See the Operating Reference Manual if 
necessary to alter this specification. 


Figure 59. Test Mode Message Card Formats 
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MSG Q 
RTRQG@ 

P/N 12345 
WHS 200 
EMS 

MSG q 
RTRQ 

P/N 55555 
WHS 200 
EMS 

MSG Q 
RTRQ@ 

P/N 12345 
WHS 3500 
EMS 

MSG Q 
RTRQG 

P/N 12349 
WHS 200 
ERS 

MSG Q 
RTRQ 

P/N 12541 
-WHS 100 
EMS 

MSG Q 
RTRQ 

P/N A2345 
WHS 400 
EMS 


Figure 60. Sample Input Test Messages for Test Mode 
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//EXECTEST JOB (ICOMTEST,,,20),’ICOM TEST SQCOBOL’ ,CLASS=A, 

//  RESTART=(GENLINK.ASM) 

//PROCLIB DD DSN=INT.PROCLIB,DISP=SHR (AS NEEDED) 

[eek kekataekkkekkkkkkkekakckdkkkdkedkee eek eed hkkkekke kkk keke heh kk 

//* THE RESTART PARM IN THE JOB STATEMENT RESTARTS THE TEST AT THE 

//* BEGINNING. IF YOU WISH TO RESTART AT A DIFFERENT STEP, CODE * 

//* RESTART=STEPNAME OR RESTART=STEPNAME.PROCSTEPNAME * 

//* * 

//* NOTE: WHEN USING A VSAM FILE, IT MAY BE NECESSARY TO EXECUTE * 

//* IDCAMS TO VERIFY THE FILE IF A PREVIOUS EXECUTION ABENDED. * 
* 


[J [RRR dkedkekktkkkkkekkkkedhkkkke keke keke kee 


//* 
[Laake eee 
//* STEP GENLINK GENERATES A STANDARD TEST MODE LINKEDIT DECK 
//* VIA ASSEMBLY OF THE ICOMLINK MACRO. 
//* THE GENERATED DECK (TESTLINK) IS PLACED ON INT.SYMTEST. 
[ [Leek kkhkhkikkkkkkkkkkkkkikkkkkkkkkkkkkkkkkkkkkikkikkkikkkkik&hbk&kikhket 
//GENLINK EXEC ASMPC,Q=LIB,U=REL, DECK=DECK 
//ASM.SYSIN DD * 

ICOMLINK TEST=YES,MMU=NO, STORFCH=NO, COBOL=YES , RECOBOL=YES 

END 
//SYSPUNCH DD DSN=INT.SYMTEST(TESTLINK) , DISP=SHR 
//* 
[Lf eeaaekekekkkikkekkkkkkikhkekkkkkkkkkikkkkekhkkkkkekkkkkkkkkkkkekkkkkkkik 
//* STEPS SCRSCR AND ALLOCSCR DELETE AND RE-ALLOCATE THE LOAD * 
//* MODULE LIBRARY USED IN THE TEST (ALSO USED FOR DYNLLIB) * 
[ [eee kkedke kkk khkkkkdkkkkkdae eked kkekkeedkkdkdkekk kh 
//SCRSCR EXEC PGM=IEFBR14 
//FILEL DD DSN=INT.MODSCR,DISP=(OLD,DELETE) 
//ALLOCSCR EXEC PGM=IEFBR14 
//A DD DSN=INT.MODSCR,DISP=(,CATLG) ,UNIT=SYSDA, 
// DCB#INT.MODREL, VOL=SER=INT001,SPACE=(CYL,(3,,7)) 


NOTE: JCL requirements vary by installation requirements. The above 
example illustrates representative JCL. The installation 
System Manager should verify JCL to use. 


Figure 61. Linkedit and Execution JCL for Test Mode (Page 1 of 3) 
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[La EEE 


//* STEP GENINCL CREATES INCLUDE CARDS USED BY THE LINK EDIT STEP * 
//* THE ADDED INCLUDE STATEMENTS ARE FOR THE SAMPLE SUBSYSTEM AND * 
//* THE REFERENCED OFTS (INCLUDE AFTER PMIRCNTB). * 
//* IF THE TEST1 TERMINAL IS NOT IN THE SYSTEM PMISTATB TABLE, USE: * 
//* INCLUDE MODREL(PMISTATB) * 
//* INCLUDE MODREL(PMIDEVTB) * 
//* INCLUDE MODREL(PMIBROAD) * 
//* THE ABOVE ASSUMES THE CONTROL TERMINAL IS NAMED CNTO1. * 
//* *** BEFORE THIS STEP, SEQUENCE NUMBER THE TESTLINK SOURCE. ***** «# 

* 


LL HEHEHE HEHEHE KKK KEE 


//GENINCL EXEC PGM*IEBUPDTE 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD DSN= INT .SYMTEST, DISP=SHR 

//SYSUT2 DD DSN=&&INCL,DISP#(,PASS) ,UNIT=SYSDA,SPACE=(CYL,(1,1,1)), 
// DCB=(BLKSIZE=80, LRECL=80) 

//SYSIN DD 7 

-/ CHANGE NAME=TESTLINK, LIST=ALL 


INCLUDE SYSLIB(SQCOBOL) SAMPLE SUBSYSTEM 00000010 
INCLUDE SYSLIB(RPT00100) DISPLAY OFT FOR SUBSYSTEM 01981000 
INCLUDE SYSLIB(RPT00S01) ERROR MESSAGES OFT 01982000 
[LRH AHHH KEKE KKK KKK eke 
//* LINK EDIT THE TEST INTERCOMM SYSTEM * 
//* NOTE: THE INTERCOMM PROC ‘LKEDT’ LINKEDITS MODULES FROM THE * 
//* SYSLIB CONCATENATION STREAM AS FOLLOWS - * 
//* THE LOAD LIBRARY SPECIFIED BY THE Q= PARAMETER, * 
//* FOLLOWED BY MODULES FOUND IN MODUSR, MODLIB, THEN MODREL. * 7 
//* THEN, SYS1.COBLIB (FOR OS/VS COBOL). * | 
//* THE INTERCOMM LOAD MODULE IS PLACED ON INT.MODSCR. * 
//* IT IS NOT NECESSARY TO RE-DO THE WHOLE LINK TO REPLACE 1 MODULE * 
//* IN THIS CASE, ALL YOU SHOULD DO IS: * 
//* 1) REASSEMBLE OR RECOMPILE THE CHANGED/NEW MODULE INTO A * 
//* SEPARATE LOAD LIBRARY * 
//* 2) OVERRIDE THE SYSLIN DD STMT TO //LKED.SYSLIN DD * * 
//* FOLLOW IT WITH INCLUDE CARDS * 
//* FOR THE MODULES YOU WISH TO REPLACE * 
//* 3) FOLLOW THOSE INCLUDES WITH THE FOLLOWING 3 CARDS: * 
//* INCLUDE SYSLMOD(TESTICOM) * 
//* ENTRY PMISTUP ‘ 
//* NAME TESTICOM(R) * 
/{/* 4) INSERT A DD STMT FOR THE LOAD LIBRARY ON WHICH THE * 
//* REPLACEMENT MODULES RESIDE 7 
//* 5) CHANGE THE RESTART PARM ON THE JOB STATEMENT ; * 
/{* TO POINT TO THE LKED STEP # 
[LL RRA HKKKKKKKKAHHKKEKKhKKakkhkakkkkkkkkikiekk kak 
//UKED EXEC LKEDT, LMOD=TESTICOM,Q=TEST, 
// PARM.LKED=’ LIST, LET, XREF , NCAL, SIZE=( 250K, 100K) ‘ 


//LKED.SYSLIN DD DSN#&&INCL(TESTLINK) , DISP=(OLD, PASS) 
/ /MODREL DD DSN= INT.MODREL, DISP#SHR 


Figure 61. Linkedit and Execution JCL for Test Mode (Page 2 of 3) 
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Ie att ttetettetet tetetetteeh tted teeth th hh hh ahhh ah hh kh kk ee 


//* EXECUTE INTERCOMM IN TESTMODE * 
[Le ee EEE HEN HEEEHHEEEKEEENKHEKK KK KKK Khe hk hee 
//GO EXEC PGM=TESTICOM, PARM='TEST’ , TIME=(,30) 

//STEPLIB DD DSN=INT.MODSCR,DISP=(OLD, PASS) (DYNLLIB) 

// DD DSN=INT.MODUSR,DISP=SHR (USER LOAD LIBRARY) 

// DD DSN=INT.MODLIB,DISP=SHR (SYSTEM UPDATE LIBRARY) 
// DD DSN=INT.MODREL, DISP=SHR (SYSTEM RELEASE LIBRARY) 
// DD DSN=SYS1.COBLIB,DISP=SHR (COBOL LOAD LIBRARY) 


//INTERLOG DD DSN=&&INTLOG,DISP=(NEW,PASS), 

//  SPACE=(TRK, (10,5) ),VOL=SER=INT001,UNIT=SYSDA, 

// DCB=(DSORG=PS, RECFM=VB, BLKSIZE=4096 , LRECL=4092,NCP=8 , OPTCD=C) 
//STSLOG DD SYSOUT=A,DCB=(DSORG=PS, BLKSIZE=120, RECFM=FA) 

//SMLOG DD SYSOUT=A,DCB=(DSORG=PS, BLKSIZE=120, RECFM=FA) 
//SYSPRINT DD SYSOUT#=A,DCB=(DSORG=PS, RECFM=VA, BLKSIZE=141,LRECL=137) 
//RCTOO0O DD DSN=INT.RCTO00,DISP=SHR, 


// DCB= (DSORG=DA, OPTCD=RF ) OUTPUT FORMATS 

/ /PMIQUE DD DISP=OLD, DSN=INT.PMIQUE, 

// DCB= (DSORG=DA , OPTCD=R) SUBSYSTEM DISK QUEUE 

-//STOKFILE DD DSN=VSAMSD1.STCKFILE.CLUSTER,DISP=OLD, 

// AMP=(AMORG, ‘ RECFM=F’” ) VSAM TEST FILE 

//PARTFILE DD DSN=INT.TEST.PARTFILE,DISP=OLD, 

// DCB=(DSORG=DA, OPTCD=R) BDAM TEST FILE 

//DESO000 DD DSN=INT.DESO00,DISP=SHR, 

// DCB= ( DSORG=DA , OPTCD=RF ) FILE DESCRIPTION RECORDS 

//SYSIN DD DSN=INT.SYMTEST(TESTMSGS) , DISP=SHR, 

// DCB=DSORG=PS TEST MODE INPUT MESSAGES 

//PMISTOP DD DUMMY 

/ /TCOMIN DD DUMMY (ADD FAR PARMS IF DESIRED) 
= //* 

//STEPCAT DD DSN=VSAMSD1,DISP=SHR VSAM CATALOG (IF NEEDED) 

//* DYNAMIC LINKEDIT DATA SETS (IF NEEDED) 


//DYNLPRNT DD SYSOUT=A 
//DYNLLIB DD DSN=INT.MODSCR,DISP=(OLD, PASS) 
//DYNLWORK DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS) (REL 9 ONLY) 


//* 

//SNAPDD DD SYSOUT=A 

//SYSSNAP DD SYSOUT=A SNAP INPUT TEST MESSAGES 
//SYSSNAP2 DD SYSOUT=A ‘SNAP OUTPUT TEST MESSAGES 
//SYSUDUMP DD SYSOUT=A 

//* 


//ABNLIGNR DD DUMMY FORCE ABEND-AID TO IGNORE DUMP (PRODUCE IBM DUMP) 


[ [eek akkkkkkkekkkkkkkkkkkkakkkk keke keke khkkkkkkekhkkkhka keke 


//* PRINT INTERCOMM LOG FROM TEST MODE RUN * 
]) RO III III IIIS IIIS III ng nin ini inieiink 
//INTERLOG EXEC PGM=LOGPRINT,COND=EVEN 

//STEPLIB DD DSN=INT.MODREL, DISP=SHR 

//SYSPRINT DD SYSOUT=A, DCB=(DSORG=PS , BLKSIZE#121) 

//INTERLOG DD DSN=&& INTLOG, DISP=SHR, DCB=BLKSIZE=5000 

//SYSIN DD DUMMY , DCB=BLKSIZE=80 

// 


Figure 61. Linkedit and Execution JCL for Test Mode (Page 3 of 3) 
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Chapter 13 


VS COBOL II TESTING 


This chapter illustrates testing of a VS COBOL II subsystem under 
Release 10 and using the BTAM simulator, as previously described in 
Chapter ll. 


The VS COBOL II subsystem, SQCOBOLV (see Figure 64) is a 
reorganized version of SQCOBOLA (see Figure 48 in Chapter 10), in that 
all the DWS fields (except the output message header area) have been 
moved to, and reorganized in, the VS COBOL II subsystem’s 
Working-Storage Section. The one-character 77 level fields were 
changed to literals in program MOVE instructions, and the field areas 
were organized into 01 level groups. Note that the COBOL COPY members 
are at the post SM level 2240 of Release 10 (see Appendix B). 


To test this subsystem, the same MMU map definitions (see Figure 
51), symbolic MMU maps (copied directly into Working-Storage), and test 
input messages (see Figure 52) are used. However, the STRTSDWSCK 
command is omitted as DWS overflow checking is not needed. Also the 
(recompiled under VS COBOL II) subroutine SQCOBOLB (see Figure 49 in 
Chapter 10) is called via COBREENT, as _ before. The test setup 
described in Section 11.3 is the same except that: Figure 65 replaces 
the table additions illustrated in Figure 50 (note that there are no 
COBOL II parameters to add, the only changes are the subsystem name and 
its DWS size to 48); and Figure 66 replaces Figure 53 to illustrate 
execution JCL in the VS COBOL II environment. The SIM3270 output 
printout from the test would look the same as in Figure 54. A Release 
10 log printout is provided in Figure 67. 
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PP 5668-958 IoM VS COBOL II Release 3.0 09/13/88 SQCOBOLV Date 05/26/94 
LineIO PL SL emmy tA Lah mnt meee 2 eens meme Jeet meen 4 en t ee a § ment een § wn ene een 7 = 
OUv0001L*# IDENTIFICATION OIVISION. 

000002** PROGRAM=ID. SQCUBOLY. 

000003" ENVIRONMENT DIVISION. 

0000047" OATA OIVISION. 

0000054 WORKING=STORAGE SECTION. 

0000060*# 77 OD—STOCK PIC X(8) VALUE '"STUKFILE'’. 
000007*s 77 OO—P ART PIC Xa) VALUE "PARTFILE'. 
000008 OL I0=-GROUP=NAME PIC X(a) VALUE "STKSTAT*. 
000009*# Ol IO—MAP=NAME PIC xX(s) VALUE 'MAPL'*. 

00001L0* Ol ERR-MAP—NAME PIC Xo) VALUE "ERRMAP®, 
CO00L1LS= Ol MESSAGE—TAGBLE. 

000012** 04 MSG=A PIC X(12)} VALUE "PART NUMBER '‘. 
000013** 04 MSG=-B PIC x(11) VALUE * NOT FOUND.'. 
00001L4*# 04 MSG—C PIC xX¢5) VALUE "PART °, 
000015 04 4456-0 PIC xX(24) VALUE 

000016**# * NOT FOUND IN WAREHOUSE ',. 
000017" 04 MSG=E PIC x(20) VALUE '*, MESSAGE CANCELLED.'. 
oo0ol1E 04 MSG-F PIC X(17) VALUE "MAP ERROR MCW IS '. 
00001L9#s 04 MSG=G PIC X(36) VALUE 

0000204 "INVALID DATAS PARTNO MUST BE NUMERIC’, 
0000214 04 MSGeH PIC x(35) YALUE 

000022 "INVALID DATA! wHSNO MUST BE NUMERIC’. 
0000 234% 04 *MSG=-I PIC x(46) VALUE 

000024 "INVALID DATA: PARTNG ANDO WHSNO MUST BE NUMERIC’. 
Q00025 ** Ol INVALID—INPUT=4ESSAGE. 

000026* 04 MSG—7 PIC xX(50). 

000027** OL NO=—PART=MESSAGE REDEFINES INVALID=INPUT=MESSAGE. 
0000 288 04 MSGe=1 PIC x(12). 

000029*# 04 NOPART=-PNO PIC x(5). 

000030** 04 MSG-2 PIC X(11). 

000031** Ol NOWARES—MESSAGE REDEFINES INVALIO~INPUT=MESSAGE. 
000032 04 MSG=3 PIC x(5). 

000033** 04 NOWARES=PNO PIC X(5). 

0000344 04 MSG—4 PIC x(24)- 

0000354 04 NOWARES=wWHS PIC x(3). 

0000364 O01 CANCEL-MESSAGE REDEFINES [NVALID<LNPUT=—MESSAGE. 
000037 04 CAN=CODE : PIC x(15) JUST RIGHT. 
000038** 04 CAN=FILE-NAME PIC x(8). 

000039%# 04 MSG—5 PIC X(20). 

000040" OL MAPPING-ERR=MESSAGE REDEFINES INVALID—INPUT—MESSAUE. 
000041** 04 MMSG-6 PIC X(17). 

0000424* 04 ERROR—TAG PIC xX(4)e 
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LinelD PL SL seme eat ham] HB et meme 2 ant mn 3 nt enn han tt mn nh mnt een § meet eenn = 
0000 44** Ol RECORD—AREA. 

000045** 04 PART=-RECORD. 

000046** NOTE 100 CHARACTER BDAM RECURD wITHOUT KEYS. 
000047*# 06 P-REC=PART=DATA.} 

0000485" Ou P=-REC=PIN PIC X(5)-6 

0000498 0&8 P=-REC-OES PIC X(54)-6 

0U0050**% 0&6 P=-REC-UNT PIC X(5). 

000051¥** 06 P=-REC=PRC PiC = y99V9(4) COMP=3. 
000052 06 P=-REC-MFR=-NUM PIC X(15)-6 

000053** O06 FILLER PIC X(17)e 

000054 0% STOCK-RECORD. 

000055** NOTE 80 CHARACTER VSAM RECORD. 

0000506** 06 DELETE-CHARACTER PIC Xe. 

000057** 06 S—REC-KEY-FIELD. 

000058" 0S S—REC-WHS PIC 913). 

000059" 08 S=-REC—PNO PIC 905). 

000060"* 06 FILLER PIC X(26). 

000061** 06 S-REC-STOCK=DATA. 

000062** OS S—REC=-WLC PIC X(23). 

000063** 08 S-REC-LEY PIC 917) COMP=3. 
0000644" NOTE S-REC=LEY IS 4 CHARACTERS LONG. 
0000657" 08 S=REC=-LOT PIC X(6). 


000066** 08 S=-REC-ORD PIC 9(7) COMP =3. 
000067** NOTE S=REC-ORD IS 4 CHAKACTERS LONG. 
000068" 08 S=—REC-ODT PIC Xl6)-. 


000070 Ol FILE-AREAS. 

000071** 02 STATWO PIC $9(7) COMP SYNC. 
000072 NOTE THIS PUTS US ONTO A FULLWORD BOUNDARY ALIGNMENT. 
0000 73** O02 FH=-STATUS REDEFINES STATWO. 

000074*# 04 Fn=STATL PIC Xe 

000075#* 88 IOK VALUE 'O'. 
000076** 88 IOERROR VALUE ‘1°. 
000077** 8&8 NOT-FOUND VALUE "2°. 
000078" 88 NO-00 VALUE ‘9°. 
000079#* 04 F=-H=STAT2 PIC Xe 

000080** 04 FILLER PIC x(2). 

000081 ** O02 EXTOSCT PIC X(48). 

00008 2** NOTE wE ARE STILL ALIGNED HERE. 

000083** 02 RBN=-WORD PIC S9(7) 

000084" O02 RBN=FILLER REDEFINES RBN-wORD. 

000085** 04 FILLER PIC Xe 

000086** 04 RBN PIC X(3)- 

000087** O02 CURRENT=FILE PIC X(8). 
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LinelIO 

000089 F# 
000090" 
000091C* 
000092C¥* 
000093C* 
000094C* 
000095C* 
000096C# 
900097C# 
000098C 
OG0099C# 
000100CF 
OOOLOLCF 
000102C* 
000103C# 
000104C* 
000105C* 
000106C*# 
000107C* 
0001L08C* 
000109C# 
000110C# 
OO0011LILC*® 
000112C# 
000113C* 
000114C* 
OO001LIL5C* 
000116C* 
000117C* 
QOOO1L1LSC®# 
000119C*# 
000120C# 
000121C# 
000122C* 
000123C* 
000124C* 
000125C* 
000126C* 
000127C# 
000128C*# 
000129C# 
000130C* 
OO0L31LC*# 
000132C* 
000133C* 
000134C* 
000135C¥ 
000136C* 
000137C# 
000138C* 
000139C* 
000140C* 
000141C* 


Figure 64. 
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SQCOKBOLY Date 05/26/94 
mee et Am) mf meme} emer ee ) we emcee} ee eae J ef ema § een g women an 5 man} mare emmy wma 7m | 
O, SYMABOLIC@MAP, 
COPY STKSTATS. 
03 MAPIL. 
05 VERBF. 
06 VERBL PIC 9(4) COMP, 
O06 VERBT PIC X. 
06 VERB. PIC X(4)- 
04 PaRTNUF. 
05 PARTNOL PIC 9(4) CUMP. 
05 PARTNOT PIC Xe 
05 PARTNO. 
06 FILLER PIC S$9(4). 
O06 RBNBYTE PIC $9. 
04 USEG1L. 
05 wWHSNOF. 
06 WHSNOL PIC 9(4) COMP. 
06 WHSNOT PIC Xe 
O06 WhHSNO PIC $999. 
05 PRTDATAF. 
06 PRTOATAL PIC 9(4) COMP. 
06 PRTDATAT PIC Xe. 
Qo PRTIDATA PIC X(54)- 
05 ORDUNTF. 
06 ORDUNTL PIC 9(4) COMP. 
06 OROUNTT PIC X. 
06 QORDOUNT PIC X(5). 
05 PRTPRCF. 
06 PRTPRCL PIC 9(4) COMP, 
O06 PRTPRCT PIC x. 
06 PRTPRC PIC $999V¥9(4) COMP=$3. 
05 wWHSLOCF, 
06 WHSLOCL PIC 9(4) COMP. 
06 WHSLOCT PIC X. 
06 WHSLOC PIC X(23). 
05 STKLEVF. 
06 STKLEVL PIC 9(4) CUMP. 
06. STKLEVT PIC xX. 
O06 STKLEY PIC S$9(7) COMP=$3. 
05 LEVOATEF. 
06 LEVDATEL PIC 9(4) COMP. 
O06 LEYVOATET PIC xX. 
06 LEVOATE PIC X(8). 
05 STKOROF. 
06 STKOROL PIC 9(4) COMP. . 
06 STKORDT PIC x. 
06 STKORO PIC S$9(7) COMP=3. 
05 OQRODATEF. 
06 ORDDATEL PIC 9(4) COMP. 
O06 ORDDATET PIC X. 
06 ORDOATE PIC X(3}. 
04 FILLER PIC X(7)-. 
03 ERRMAP. 
05 ERRMSGF. 
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000142C* 
000143C# 
000144C* 
000145C*# 


OOOL47## 
000148** 
000149%# 
000150 
OOOLS1L¥* 
OO0L5S2** 
000153 ** 
Q000154*## 
0001558 
000156"* 
000157*%# 
0001584 
0001594 
000160* 


000162” 
000163 ** 
000164** 
0001654" 
0001668 
000L67** 
000168** 
000169¥# 
0001707 
000171" 
000172** 
000173%* 
000174" 
000175%* 
000176#* 
000177** 
000178¢es 
0001794 
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PP 5668-958 IBM VS COBOL [I Release 3.0 09/13/88 SQCOBOLVY Date 05/26/94 
PL SL meat AH] 9a 4 en 2 nant ern Jr ant an ae te nt nent ean 7- 
Oo ERRMSGL PIC 9(4) CUMP, 
O06 ERRMSGT PIC Xe 
Ob ERRMSG PIC x(50). 
04 FILLER PIC X(7). 
Ol MMU-AREAS. 
O02 MCW PIC 9(3) COMP SYNC. 
O02 MCW=CODE-SYTES REDEFINES ACW. 
04 MCWHRETURN=COOE PIC Xe 
88 MAPPING-OK VALUE ZERU. 
88 MAPENO-SUCCESSFUL VALUE "8", 
04 MCW-OPTION—2 PIC X- 
04 MCW—-OP TION=3 PIC X. 
04 MCW-OPTION=4 PIC Xe 
O02 MCW—CODES=PART REDEFINES ACW. 
04 MCW-COODES1-2 PIC xX(2). 
04 FILLER PIC X(2). 
02 MCB PIC X48). 
02 KEY-FIELD PIC 9(8). 
OL DATE-EDLT—ANO-FLAGS. 
02 DATE=n0LD. 
04 O-E=-M0 PIC X(2). 
04 O-E-DAY PIC x(2). 
04 D-E-YEAR PIC x(2). 
O02 DATE-MOVE. 
04 0-4-0 PIC x(2). 
04 SLASH2 PIC Xe 
04 O-4=DAY PIC X(2). 
04 SLASHL ~ PIC X. 
04 D=-M-YEAR PIC xX(2). 
02 MAP=FLAG PIC X. 
MAP—GOOD - VALUE 'G', 
MAP—ERR VALUE ‘ES, 
MAP-QUT—ABORT VALUE 'A'. 
02 FH-READ-FLAG PIC Xe 
88 BOAM-READ-OK YALUE 'D! 
88 VSAM—READ=OK VALUE ‘vy! 
Figure 64. Sample VS COBOL II Subsystem (Page 4 of 16) 


Chapter 13 VS COBOL II Testing 
PP 5668-958 IBM VS COBOL [I Release 3.0 09/13/88 SQCQDOLY Date 05/26/94 
Lineld ee pak Am) HB a 2 mn pen an ten etn t ean a enn t men nnn tn nn T= 
ouolale# COPY COBLOGCH. 
oooLazce O01 CUBLOGCH. 
000183C* O02 UaAN PICTURE X VALUE ' ‘. 
000184C# O2 UANMOT PICTURE X VALUE ' °. 
000185C# O2 UANSEL PICTURE X VALUE ° '. 
OO014OC* OZ UANMDSEL PICTURE xX VALUE ' '. 
000187C* O02 UAHSEL PICTURE X VALUE ' '. 
000LSECe 02 VAHMOSEL PICTURE X VALUE ' '. 
000189C® O02 UAX PICTURE X VALUE ' '. 
000190C* O02 UAXMOT PICTURE X VALUE ' '. 
900191C* O02 UNN PICTURE X VALUE ' '. 
000192C* O02 UNN4OT PICTURE X VALUE ' '. 
000193C¥ O2 UNNSEL PICTURE X VALUE ' ',. 
000194C# O2 UNNMOSEL PICTURE X VALUE '' ', 
000195C* QO2 UNHSEL PICTURE X VALUE ' '. 
000190C¥ O02 UNHMOSEL PICTURE X VALUE '' '. 
000197C* O02 UNX PICTURE X VALUE ' '. 
0001L98C* O02 UNXMOT PICTURE x VALUE ' '. 
000199C* O2 PAN PICTURE X VALUE ° '. 
000200C* O2 PANMOT PICTURE X VALUE ° '. 
000201C* O02 PANSEL PICTURE X VALUE * ', 
000202C* O2 PANMOSEL PICTURE X VALUE ' '. 
000203C* O02 PAHSEL PICTURE X VALUE ' '. 
000204C# O02 PAHMOSEL PICTURE X YALUE ' '. 
000205C* O02 PAX PICTURE X VALUE ' '. 
000206C* O02 PAXMOT PICTURE X VALUE * '. 
000207C* O02 PSN PICTURE X VALUE ' °. 
000208C* O02 PSNMOT PICTURE X VALUE ' '. 
000209Ce O02 PSNSEL PICTURE X VALUE ' ‘. 
000210C* O2 PSNMOSEL PICTURE X VALUE ' °, 
000211C* O2 PSHSEL PICTURE-X"VALUE ' '. 
000212C O02 PSHMOSEL PICTURE X VALUE ' '. 
000213C* O02 PSX PICTURE X VALUE * ‘. 
000214C* O02 PSXMOT PICTURE X VALUE ° '. 
000215C# O02 SUPR PICTURE X VALUE ' °. 
Ov0216C* O02 WRITEL PICTURE X VALUE ‘ '. 
000217C* O02 ERASWRIT PICTURE X VALUE ' '. 
000218C¥ O02 ERASWRAL PICTURE X VALUE ' '. 
000219C* O02 RMOT PICTURE X YALUE * °, 
000220C* O02 RKEYBO PICTURE X. VALUE * ‘. 
000221C¥ O02 RMOTKEYB PICTURE X YALUE ' '. 
000222C¥ O02 ALARM PICTURE X VALUE ' °, 
00223C* O02 ALRMRMOT PICTURE X VALUE ' °. 
000224Cc* O02 ALRMRKEY PICTURE X VALUE ' '. 
000225C* O2 ALRMRMKY PICTURE X VALUE ' °. 
000226C* O02 PRNTNL PICTURE X VALUE ° ‘. 
000227C¥ 02 PRNT4O PICTURE X VALUE ' '. 
00022uC¥ O02 PRNT64 PICTURE X VALUE ' '. 
000229C* O02 PRNT8O PICTURE X VALUE ' '. 
000230C* O2 PRNLRMOT PICTURE X VALUE '' '. 
000231C# O2 PRAORMOT PICTURE X VALUE ' '. 
000232C* O02 PR64RMOT PICTURE X YALUE ' '. 
000233C# O02 PRAORMOT PICTURE X YALUE ' ', 
Figure 64, Sample VS COBOL II Subsystem (Page 5 of 16) 
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PP 5668-958 IbM VS COBOL II Release 3.0 09/13/88 SQCOHOLY Date 05/26/94 
LineID PL SL seem 28 han) Bans een? meant pn Jt an nn t een ent enn bh en nnt $7 =, 
0C0234C* O2 PRNLRKEY PICTURE X VALUE * °*, 
000235C® OZ PR4ORKEY PICTURE X VALUE ' °. 
000236C¥ O2 PRO4RKEY PICTURE X VALUE * '. 
900237C# O2 PRSORKEY PICTURE X VALUE * ', 
000z23uC¥ O02 PRNLRMKY PICTURE X VALUE * '. 
0002¢39C* O2 PR&ORMKY PICTURE X.VALUE ° '. 
000240C* O02 PRO4RMKY PICTURE X VALUE ‘ '. 
000241C# O2 PR8ORMKY PICTURE X VALUE * '. 
000242C* O2 PRNLALRM PICTURE X YALUE * ', 
000243C* O2 PR4OALRM PICTURE X VALUE * ', 
000244C# O2 PRO4ALRM PICTURE X VALUE * ', 
000245C* O2 PRBOALRM PICTURE X VALUE '' '~ 
000246C* O2 PRNLAKMOD PICTURE X VALUE ' '. 
000247C* O02 PR4OARMO PICTURE X VALUE ' °. 
000246C* O02 PR64ARMD PICTURE X YALUE ' '. 
000249C* O02 PRSOARMD PICTURE X VALUE ' '. 
000250C* O02 PRNLARKY PICTURE X VALUE * ', 
000251C* 02 PR4OARKY PICTURE X VALUE ' ', 
000252C* O2 PRO4ARKY PICTURE X VALUE ' ', 
000253C* O2 PRBOARKY PICTURE X VALUE ' °', 
000254C* O02 PRNLAMKY PICTURE X VALUE ' '. 
000255C* O02 PR4OAMKY PICTURE X VALUE ' '. 
000256C® O02 PRO4AMKY PICTURE X YALUE ' ', 
000257C* O02 PRSOAMKY PICTURE X VALUE ' '. 
000258C* *02 NULL PICTURE X VALUE ' °. 
0002549C* O02 NL PICTURE X VALUE '' ', 
000260C* O02 FF PICTURE X VALUE '' '. 
000261C* O02 CR PICTURE X VALUE '' '. 
000262C* 02 SI PICTURE X VALUE * *, 

0002649" COPY ICOMSBS. 
000265C* OL REENTSBS-CODES. 
000266C* * THESE CODES REPRESENT OFFSETS FOR ROUTINE ADORESSES IN THE 
000267C™ * TABLE NAMED REENTSB8S. UNLY THE MOST COMMONLY USED VALUES 
000268C¥ * ARE INCLUDED HERES THE USERS MANUAL HAS A COMPLETE LIST. 
000269C* * IF OFFSET O00, THEN TRUE OFFSET#==(OFFSET+1) 
000270C* 05 INITLU6 PIC 999 COMP YALUE 103. 
000271C* 05 INTSORTC PIC 99 COMP VALUE 99. 
000272C* 05 DOwS—SNAP PIC 99 COMP VALUE 95. 
000273C* 05 MAPFREE PIC 99 COMP VALUE 91. 
000274C* 05 FECMRLSE PIC 99 COMP VALUE 87. 
000275C* 05 FESEND P1C 99 COMP VALUE 83. 
000276C* 05 FESENDC PIC 99 COMP VALUE 79. 
000277C* 05 DYN-ALLOCATE PIC 99 COMP VALUE 75. 
000275C* 05 OYN=ACCESS PIC 99 COMP VALUE 71. 
000279C* 05 MAPURGE PIC 99 COMP VALUE o7. 
000280C# 05 MAPCLR P1C 99 CUMP VALUE 63. 
000281C* 05 MAPEND PIC 99 COMP VALUE 59. 
000282C* 05 MAPOUT PIC 99 COMP VALUE 55. 
n00283C* O05 MAPIN PIC 99 COMP VALUE 51. 
000284C* 05 INTUNSTO PIC 99 COMP VALUE 47. 
Figure 64. Sample VS COBOL II Subsystem (Page 6 of 16) 
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000285C® 05 INTSTORE PIC 99 COMP VALUE 43. 
000286C* 05 INTFETCH PIC 99 CUMP VALUE 39. 
000287C# O> FECMFDBK PIC 99 CUMP VALUE 35. 
00028%C* 05 FECmMO0Q PIC 94 COMP VALUE 3l. 
000289C® 05 DQ-wR1 TEX PLC 99 COMP VALUE 27. 
000290C# 05 DQ=-READX PIC 99 COMP VALUE 23. 
ovo2zglces 05 DQ=-WwRITE PIC 99 COMP VALUE 19. 
900292Ce 05 DQ-READ PIC 99 CUMP VALUE L5. 
000293C¥ 05 DQ=-CLOSE PIC 99 CUMP YALUE ll. 
000294Cs 05 DQ-OPEN PIC 99 COMP VALUE: 07-6 
000295C* 05 DQ-BUILD PIC 99 COMP VALUE 03. 
000296C® 05 Fn-SELECT PIC 99 COMP VALUE 4. 
000297CF 05 FH-RELEASE PIC 99 COMP VALUE 4. 
000298C* 05 FH=REAO PIC 99 CUMP YALUE 12. 
000299C* 05 Fr-wR1TE PIC 99 COMP VALUE 16. 
000300C* 05 FH-GET PIC 99 COMP VALUE 20. 
000301CF 05 FH-PUT PIC 99 COMP VALUE 24. 
000302C* 05 FH=RELEX PIC 99 COMP VALUE 28. 
000303C* 05 FH-FEOY PLC 99 COMP VALUE 32. 
000304C* 05 TABUILD PIC 99 COMP VALUE 36. 
000305C® 05 TABOPEN PIC 99 COMP VALUE 40. 
000306C* 05 TABPUT PIC 99 COMP YALUE 44. 
000307C* 05 TABGET PIC 99 COMP VALUE 48. 
000308C# 05 TABSORT PIC 99 COMP YALUE 52. 
000309C* 05 TABEND PIC 99 COMP VALUE 56. 
000310C# 05 COBPUT PLC 99 CDMP YALUE 04. 
0v0311C¥ 05 mSGCOL PIC 99 CUMP VALUE 72. 
000312C* 05 COBSTORF PIC 99 COMP YALUE 76. 
000313C* 05 CONVERSE PIC 99 CUMP VALUE 80. 
000314C# 05 OBINT PIC 99 COMP YALUE 84. 
O00315C* 05 LOGPUT PIC 99 COMP VALUE 88. 
000316C* 05 PAGE-FILE PIC 99 COMP VALUE 92. 
000317C* 05 FH=<GETY PIC 99 COMP YALUE 96. 
000318C# 05 FH=<PUTY PIC 999 COMP VALUE 100. 
000319C* * CODES 104 ANO UP INOICATE USER ADOLTIONS TO THE TABLE 
000321** 05 SacosuLs PIC 999 COMP VALUE 104. 
000322** 02 FILLER PIC X(22) VALUE 
000323%* "ENO OF WORKING STORAGE’. 

Figure 64. Sample VS COBOL II Subsystem (Page 7 of 16) 
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000325** 
0G0326** 
900327C* 
000324C* 
000329C® 
000330C 
000331C* 
000332C* 
000333C* 
000334C# 
000335C* 
000330C¥ 
000337C* 
N00338C* 
000339C® 
900340C* 
000341Cs 
000342C¥ 
000343C# 
000344C* 
000345C * 
000340C* 
000347C# 
000348C¥ 
000349C 
000350C* 
000351C¥ 
000352C* 
000353C* 
000354C# 
000355C* 
000356C* 
000357C®# 
000358C* 
000359C* 
000360C® 


000362"* 
000363** 
000364** 
000365%* 
000366** 
000367*# 
000368CF 
000369C* 
000370C* 
000371C* 
000372C 
000373C*® 
000374C* 
000375C® 
000376C* 
000377C* 


Figure 64. 


LINKAGE SECTION. 
CUPY ICOMINMG. 
01 INPUT~-HESSAUE. 
04 MESSG—HOR. 
Oo MSGH=-LENGTH 
06 MSGH=QPR_ 
Q6 MSGH=RSCH 
06 MSGH=RSC 
Oo MSGH-SSC 
06 MSGH=MNMN 
06 MSGH-OATE. 
08 ASGH-YR 
O08 AMSGH=—PE 
0s MSGrH—JU 
06 MSGH=-TIME. 
08 MSGH—HH 
08 MASGH=—MM 
08 MMSGH-SS 
08 MSGH=-TH 
06 MSGH=TID. 
08 MSGH-TI 
08 MSGH-TI 
08 MSGH-TI 
06 MSGH—FLGS 
Qo ASGH=-P ID 
06 MSGH-PIDX 
08 FILLER 
048 MSGH=—8M 
06 MSGH=-SSCH 
O06 MSGH—ADUR 
05 MSGH—AORX 
08 MSGH-US 
O08 FILLER 
06 MSGH=-LOG 
06 MSGrn—BLK 
06 MSGH—VMI 


02 INPUT=TEXT. 
04 INPUT=VERB 
Ol ICOM=SPA : 
OL ICOmM=-SCT 
O01 ICOM=RETURN 
COPY ICOMDWS. 
Ol DYNAMIC=WORKING=STO 
O02 OUTPUT—MESSAGE. 
04 OMESSG=-rOR. 


PIC 
Pic 
PIC 
PIC 
PIC 
PIC 


PIC 
R100 P1C 
LIAN=OAY PIC 


PIC 
Pic 
PIC 
PIC 


1 PIC 
2-3 PIC 
4-5 PIC 
PIC 
PIC 


VS COBOL II Testing 


SQGONOLY Date 05/26/94 


$9999 COMP. 
Xe 


Xe 
XXe 
99-6 
X(2)6 
X(5). 


REDEFINES MSGH=-P[D. 


PIC 
N PIC 
PIC 
PIC 


X(2)e 
X36 
Xe 

X(3)-6 


REDEFINES MSGH—ADOR. 


R PIC 


PIC 
PIC 
PIC 
PIC 

PIC X(4)e 

PIC X(500). 

PIC X{(100). 


PIC S9(7) COMP. 


RAGE. 


06 OMSGH—-LENGTH Pic 


Oo OMSGH—OPR 
06 OMSGH=RSCH 
065 OMSGH=RSC 
06 OmSGH=—SSC 
06 ONSGH=MAN 
O06 OMSGH=OATE. 


Xe 
Xl2)~ 
Xe 
Xe 
Xe 


$9999 COMP. 
Xe 

Xe 

Xe 

Xe 

XXXe 
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0U0378CF 
000379C* 
000380C* 
Nv0381C 
000382C* 
000383C* 
0003 84C* 
000385C* 
000386C* 
000387C* 
0003 88C 
000389C* 
000390C*# 
000391C* 
000392C* 
000393C* 
000394C* 
000395C# 
000396C# 
000397C* 


O08 OMSGH—YR PIC 

08 ONSGH-PERIOD PIC 

08 OMSGH=JULIAN-0AY PIC 
OmMSGH-T IME. 

08 OMSGH<-HH PIC 

O08 OMSGH=<MM PIC 

08 OMSGH=SS PIC 

0s OMSGH=-Th PIC 
OMSGH—T ID. 

08 OMSGH-TI1 PIC 

08 OMSGH-TI2=3 PIC 

08 OMSGH=TI4=5 PLC 
OMSGH~FLGS PIC 
OMSGH=P ID PIC 
OMSGH=PIDX REDEFINES OMSGH—P 10. 
O08 FILLER PIC XU2). 
08 OMSGH-8MN PIC X(3). 
OMSGH=SSCH PIC Xe 
OMSGH-ADOR PIC X(3). 
OMSGH-ADRX REDEFINES OMSGH—ADOR. 


000398C# 08 OMSGH-USR PIC Xe 
000399C¥ 08 FILLER PIC X(2). 
000400C* OMSGH-LOG PIC X. 
000401C# OMSGH=-BLK PIC Xe 
000402C # OMSGH=VAT PIC X. 


Figure 64. Sample VS COBOL II Subsystem (Page 9 of 16) 
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PP 3608-958 IBM VS COSOL II Release 3.0 09/13/88 SQCUOUOLY Date 05/26/94 
LineID PL SL seme tat Aa) HB mat aan? man t ea an Jaan t ean nn t wn a rant enn nt m7 
000405+s PROCEDURE DIViSION USING INPUT=MESSAGE 
000400** ICOM—SPA 
0004074* ICUM-SCT 
000408 "* 1COM—RE TURN 
000409" DYNANIC-wORK ING=STORAGE » 
O00411¥* OLOO-MAIN-LINE. : 

000412"# PERFORM LUOO-HOUSEKEEP ING. 
000413 ** PERFORM 2000-HEADER-AOVE. 
000414** PERFORM 3000-MAP-—IN. 
000415+* MOVE LOW-VALUES TO VERB. 
0004lo2# IF PARTNOT NOT EQUAL TO LOW=VALUES 
000417" GR WHSNOT NOT EQUAL TO LUW-VALUES 
000415¥# 1 PERFORM S900=INVALID=INPUT—RTN 
000419*% ELSE 
000420"* 1 IF NOT MAPPING—OK 
000421¥# 2 PERFORM 8850—-MAPPING—ERR=RIN 
000422¥* 1 ELSE 
000423" 2 PERFORM 3500-MAP=CLEAR=RTN 
000424"8 2 PERFORM 4000-READ=PART=FILE 
000425« 2 PERFORM 5000-FH-BDAM-READ 
00042o** 2 IF 8 O0AM=READ-OK 
N004274s 3 PERFORM 6000-READ-STOCK-FILE 
000425** 3 PERFORM 7000—FH=VS AM—READ 
000429%8 3 IF VSAM=READ-OK 
900430 4 PERFORM 8000-MAP-OUT 
000431** 4 IF NOT MAPPING—OK 
000432"s 5 PERFORM 8850-MAPPING=ERR=RTNo 
000433"* IF mAP=GoOaD 
000434s 1 PERFORM 8500-GOQD-—MAP—END 
000435** ELSE 
0004364" 1 IF MAP—ERR 
000437%* 2 PERFORM 8600-ERR—-MAP—END. 
9004384" GOBACKX. 

Figure 64. Sample VS COBOL II Subsystem (Page 10 of 16) 
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PP 5668-958 IT8M YS COBOL [I Release 3.0 09/13/88 SQCOBOLY Date 05/26/94 
LineID PL SL meme nt Am) 98 Ht een? em e pee nj een ant men nmr pan a fmm g emma seen tenn — T= 
0004404 LOOO-HOUSEKEEPING. 
0G0441** MOVE +0 TG ICUM=RETURN. 

9004425 “OVE ‘G' TO MAP=FLAG. 

00044454 Z2000—nEADER-MOVE. 

000445 MOVE MESSG=-HDOR TO OMESSG=nOK. 

200447** ZOO00—MAP—IN. 

000445 MOVE SPACES TO MCw—-CODE-8YTES. 

000449 CALL 'CUBREENT' USING MAPIN 

000450 MCB 

000451** TO—uRUUP-NAME 

000452 10-m AP -NAME 

000453%* INPUT=MESSAGE 

000454** MCW 

000455** MAP1l. 

000457** 3500—M AP -CLEAR-RIN. 

000458** MOVE SPACES TO MCw-CODE—BYTES. 

000459** MOVE ‘A* TO MCW-OPTION=4. 

000460¥# CALL "COBREENT' USING MAPCLR 

0004617 MCW 

000462** I0-GROUP=—NAME 

000463 ** IO—M AP ~NAME 

00046444 MAPL 

000465 OMSGH-TID. 

000467** 4Q00—READ—PART=-FILE. 

000465** MOVE RBNBYTE TO RBN—wWORD. 

000469** MOVE DD=-PART TO CURRENT-FILE. 

000471 5 OO0—FH—BDAM=READ. 

000472** CALL "COBREENT*® USING SQCO8OLB 

0004734" PART-RECORD 

000474*#* RBNe 

0004754 IF ICOM—RETURN EQUAL 1 

000476 1 PERFORM 9600—I0—ERROR—RUUTINE 

000477** ELSE 

0004784 1 IF ICOM—RETURN EQUAL 2 

000479" 2 PERFORM 9700—NOT-FOUND=<RTN 

000480¥* 1 ELSE 

000481** 2 IF ICOM—RETURN EQUAL 9 

0004825 3 PERFORM 9500—N0—0D=R OUT INE 

000483** 2 ELSE 

0004844 3 IF P@REC@PIN NOT EQUAL PARTNO 

0004%85** 4 PERFORM 9700—NOT—F OUND=—RTN 

000486*¥ 3 ELSE 

000487** 4 MOVE P-REC-0ES TO PRTDATA 

000488 4 MOVE P-REC=-UNT TO ORDUNT 

0004894" 4 MOVE P=REC=PRC TO PRTPRC 

000 490** 4 MOVE ‘O° TO FH@READ“FLAG. 
Figure 64. Sample VS COBOL II Subsystem (Page 11 of 16) 
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PP 5668-958 IBM VS COBOL II Release 3.0 09/13/88 SQCOHOLY Date 05/26/94 


LinelO PL SL mmm ee Am] HB et em sn 2 set en J ent eng wn teen § went en § were t ewan 7]= 
000492%* BO0O—READ<$STOCK=FILE. 

0004934 MOVE DO=-STOCK TO CURRENT=FILE. 
000494" MOVE WHSNO TO S=REC-wWHS. 

0004954 MOVE PARTNO TO S-REC=PNO. 

0004964 MOVE S-REC<$KEY“FIELD TO KEY~FLELDO. 
00049us# 7TQQ0—FH—VSAM—READO. ; 

0004995 MOVE ZERO TO FH=-REAU~FLAG. 

000500** MOVE LOW=VALUES TO EXTOSCT. 
000501** PERFORM 74Q00—FH=-SELECT=ROUTINE. 
000502 IF NO-00 

000503** lL PERFURM 9500-N0O—0D-ROUTINE 
000504** ELSE 

0005054 1 PERFORM 7200—-FH=v SAM=RE AD—CONTINUE 
000506** l IF TOERROR 

000507** 2 PERFORM 9600-—I0—ERROR—ROUTINE 
000508" 1 ELSE 

000509*# 2 IF NOT—FOUND 

000510** 3 MOVE MSG=-C TO MSG=3 

000511** 3 MOVE MSG=-0 TO MSG=4 

000512 3 MOVE PARTNO TO NOWARES-PNO 
0005134 3 MOVE WHSNO TO NOWARES=<wHS 
000514** 3 MOVE NOWARES—MESSAGE TO EKRMSG 
000515** 3 PERFORM 9400—SEND—ERRUR<-MESS AGE 
000516** 2 ELSE 

0005174 3 MOVE 'V¥* TO FR-READ—FLAG 
000518" 3 MOVE S—REC=-wLC TO WHSLOC 
000519** 3 MOVE S-REC=LEV TO STKLEV 

0005 20** 3 MOVE S=REC-LOT TO OATE-HOLD 
000521" 3 PERFORM 7300-OATE~EDITING 
0005229" E MOVE DATE-MOVE TO LEVOATE 
000523 ** 3 MOUVE S=REC-ORO TO STKORD 

0005 24** 3 MOVE S—REC-O00T TO DATE-HOLD 
000525** 3 PERFORM 7300~0ATE-EDITING 
000526" 3 MQOYE OATE-MOVE TO ORDOATE. 
0005 27** PERFORM 7500—FH-RELEASE-ROUTINE. 
000529 7 200—FH=—V SAM-READ—CONTINUE. 

00053 0%* MOVE SPACES TO FH=STATUS. 

000531** CALL *COBREENT® USING’ FH-GETV 
000532** EXTDSCT 
000533 ** FH-STATUS 
000534" STOCK=R ECORV 
000535** KEY-FIELD. 


Figure 64. 
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NQO05374# 
0005307 
000539" 
0005404 
00054L** 
00054248 


0005444 
000545 ** 
000546 
000547** 
00054448 
0005494 


Q0005514* 
000552** 
000553** 
0005545" 
0005557* 


000557** 
000555** 
0005594 
000560** 
000561** 
0005624* 
000563 ** 
000564" 
000565** 


000567 
0005687*# 
000569" 
000570** 
000571** 
0005724 


000574 
0005754 
000576*# 
000577"™* 
000575 
0005794 
000580" 
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7300-DATE-EDITING. 
MUVE O-E-YEAR TO D-A-YEAR. 
mMuvE '/* TO SLASH1. 
MOVE D=E=-DAY TO D-M—OAY. 
MOVE '/* TO SLASH2. 
MUYE O-E-mMO TO D-N=H0. 


7400—FH=-SELECT—ROUTINE. 
MOVE SPACES TO FH-STATUS. 
CALL '‘COBREENT" USING FH=SELECT 
EXTOSCT 
Fn—STATUS 


75 00—-FH=RELEASE-ROUTINE. 
MOVE SPACES TU FH=STATUS. 
CALL "COBREENT’ USING FH=RELEASE 
EXTOSCT 
Fn=STATUS « 


8000—MAP—OUT. 

MOVE SPACES TO MCW-CODE-8YTES.- 

CALL "COBREENT* USING MAPOUT 
MCB 
ID—GROUP=-NAME 
IO—MAP “NAME 
MAP1 
MCW 


8500-GOO0D—MAP=END. 
MOVE * Q ' TO AMCW—COVE-8YTES. 
PERFORM 8700—CALL=MAP=END. 
IF NOT MAPEND=SUCCESSFUL 
PERFORM 8800-M AP—PURGE=RIN 
PERFORM 8850-MAPPING“ERR-RIN.} 


8 600—-ERR—MAP—END« 
MOVE * Q * TU MCW—CODE-8YTES. 
MOVE wRITE1L TO MCWw—OPTION—3. 
PERFORM 8700-CALL—MAP—END. 
IF NOT MAPENO—SUCCESSFUL 
PERFORM b800—MAP=PURGE-RIN 
MOVE #3 TO ICOM—RETURN. 


Sample VS COBOL II Subsystem (Page 13 of 
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PP 5668-958 IsM VS CO6SOL II Release 3.0 09/13/88 SQCOBOLY Date 05/26/94 


LinelO PL Sk seme eat dab abn e mann? man tn 3 ett en nnn gt mann nt an nt 2 7 


000582+** 8700—CALL=MAP—END. 

0002083"* CALL 'COBREENT’ USING MAPEND 

000584es MCB 

000585 OUTPUT=MESSAGE 

000586" MCW. 

000588es SSOO-MAP=PURGE=RTNe - 

0005a9*s CALL 'COBREENT' USING MAPURGE 

000590" MCB. 

000592"* 388 50—MAPPING~ERR=-RTNe} 

00059348 MOVE MSG-F TO MSG=6. 

000594** MOVE MCW-CODES1-2 TO ERROR-TAG. 

0005954" MOVE MAPPING—-ERR-MESSAGE TO ERRMSG. 

000596** PERFORM 98500—SEND—ERROR=—MESSAGE. 

000598** BIOO—INVALID—INPUT—RITN.~ 

00059948 IF PARTNOT NOT EQUAL TO LOW=VALUES 

000600*F 1 IF wHSNUT NOT EQUAL TO LOW=VALUES 

000601** 2 MOVE MSG-I TO MSG=7 

000002*# l ELSE 

000603 2 MOVE MSG=G TO MSG-7 

0000044* ELSE 

000605%* 1 IF wHSNOT NOT EQUAL TO LOW—vVALUES 

000606" 2 MOVE MSG-H TO MSG-7. 

000607 MUYE INVALID-INPUT=MESSAGE TO ERRMSG. 

00060u*= PERFORM 9800—SEND—-ERRUR=MESSAGE. 

000610** 9500-NO-0D0—-ROUTINE. 

QO0611L¥* MOVE MSG-E TO MSG-5. 

000612** MOVE ‘NO OD FOR FILE ' TO CAN=CODE. 

000613"" MOVE CURRENT-FILE TO CAN=FILE-NAME. 

O00614*s MOVE CANCEL-MESSAGE TO ERRMSG. 

000615** MOVE +0 TO ICOM—RETURN. 

000616"* PERFORM 9800—SEND—E RROR=MESSAGE. 

000618** 9600-10—-ERROR—ROUTINE. 

000619¢# MOVE MSG-E TO MSG=5. 

000620"* MOVE ‘IO ERROR ON * TO CAN-CODE. 

000621" MOVE CURRENT=FILE TO CAN-FILE-NAME. 

000622** MOVE CANCEL—MESSAGE TO ERRMSG. 

0006237" MOVE +O TO ICOM=-RETURN. 

0006 24¥* PERFORM 9800—SENO—ERROR—MESSAGE. 

000626** 9700-NOT—FOQUND=RTN. 

000627¥* MUVYE +0 TO ICOM=RETURN. 

000628** MOVE MSG-A TO MSG—1L. 

000029"* MOVE ASG-s TO MSG=2. 

000630"* MOVE PARTNO TO NOPART-PNO.} 

000631** MOVE NO-PART=MESSAGE TO ERRMSG. 

000632"s PERFORM 9800—SEND—-ERRUR-MESSAGE. 
Figure 64. Sample VS COBOL II Subsystem (Page 14 of 16) 
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5604-958 Is“ v¥S CosJL [I] Release 3.0 99/13/88 SQUOHOLY Date 05/26/94 
LinelQ PRL Sh meee A] 98 et nn 2 nt cen 3 eran + wend mewn t wen) nnn t mem anh eennt eee 7— 
000634" GADO—SEND m~ERROR—MESS AGE. 

0000358 MOVE SPACES TO MCw—COOE-BYTES. 
000630 MOVE ‘E* TO MAP-FLAG. 

0006375 CALL ‘COBREENT® USING MAPUUT 
000635 * MCB 
000639*%% TO—GROUP NAME 
000640 ERR=—MAP—NAME 
000o41LF* ERRMAP 
0006424* MCW 
000643 QMSGH=-TIO. 
0G06444% IF NOT MAPPING=-OK 

000645 L 4M0Ve +8 TO ICOM—RETURN 

0006464 1 MOVE ‘A® TO MAP—FLAG. 


Figure 64. Sample VS COBOL II Subsystem (Page 15 of 16) 
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//TABLES 

//* 

//* DEFINE SYCTTBL FOR SUBSYTEM 

1/7 

//STEPL EXEC LIBELINK,Q=TEST,NAME=INTSCT, LMOD=INTSCT 

//LIB.SYSIN DD * 

./ ADD NAME=USRSCTS 

./ NUMBER NEW1=100 , INCR=100 

USRSCTS DS OH 

RQ SYCTTBL SUBH=R,SUBC=Q , SBSP=SQCOBOLV , LANG=RCOB , OVLY=0, 
NUMCL=10 , MNCL=2 , TCTV=60 , GET=48 

* 


//ASM.SYSIN DD  DSN=INT.SYMREL(INTSCT) , DISP=SHR 
//* 

//* DEFINE BTVERB FOR SUBSYSTEM 
//* 

//STEP2 EXEC LIBELINK,Q=TEST, NAME=BTVRBTB , LMOD=BTVRBTB 
//LIB.SYSIN DD * 


./ ADD NAME=USRBTVRB 
./ NUMBER NEW1=100 , INCR=100 
USRBTVRB DS OH 
BTVERB VERB=MURQ, SSCH=R , SSC=Q, CONV=18000 
/* 
//ASM.SYSIN DD  DSN=INT.SYMREL(BTVRBTB) , DISP=SHR 
//* 
//* DEFINE SUBMODS FOR SUBROUTINE 
//* 
//STEP3 EXEC LIBELINK,Q=TEST, NAME=REENTSBS , LMOD=REENTSBS 
//LIB.SYSIN DD * 
./ ADD NAME=USRSUBS 
./ NUMBER NEW1=100 , INCR=L00 
USRSUBS DS OH 
SUBMODS LNAME=SQCOBOLB , TYPE=COBOL , DELTIME=30 , PARM=RC , 
GET=60 
/* 
//ASM.SYSIN DD DSN<INT.SYMREL(REENTSBS) , DISP=SHR 
// 


Figure 65. Table Updates for Simulation Mode Testing 
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//EXECTEST JOB (ICOMTEST,,,20),‘VS COBOL 2 TEST’ ,CLASS=A, 

//  RESTART=(GENLINK.ASM) 

//PROCLIB DD DSN=INT.PROCLIB, DISP=SHR (AS NEEDED) 

LL RHR REAR EEEEEEEHEEHHEEHHEHEEHKKKKKEKEKKKRKKKK KKK 

//* THE RESTART PARM IN THE JOB STATEMENT RESTARTS THE TEST AT THE * 

//* BEGINNING. IF YOU WISH TO RESTART AT A DIFFERENT STEP, CODE * 

//* RESTART=STEPNAME OR RESTART#=STEPNAME. PROCSTEPNAME * 

//* * 

//* NOTE: WHEN USING A VSAM FILE, IT MAY BE NECESSARY TO EXECUTE * 

//* IDCAMS TO VERIFY THE FILE IF A PREVIOUS EXECUTION ABENDED. * 
* 


[ [Leek ckkkkkkkkkkkkkkhkkikkkkkdkikkkhkkkhh kkk keke heehee 


w 
Us aeuedeesessawube den ivawss use hiwen ee cataneee anne ke ee eee ses 
//* STEP GENLINK GENERATES A STANDARD BTAM FRONT END LINKEDIT DECK 
//* VIA ASSEMBLY OF THE ICOMLINK MACRO. IF ONLY A VTAM FRONT END IS 
//* USED ON-LINE, A SETGLOBE WITH THE BTAM GLOBAL SET TO 1 MUST BE 
//* IN THE LIBRARY SPECIFIED BY THE Q= PARM. ADD OR CHANGE PARMS FOR 
//* THE ICOMLINK MACRO BASED ON INTERCOMM FACILITIES USED. 
//* NOTE: COBOL2=YES GENERATES INCLUDE STATEMENTS FOR VS COBOL II 
//* SUPPORT - IGZEBST, IGZEOPT, DUMVCOB2, STVSCOB2; 
//* RECOBOL=NO SUPPRESSES INCLUDES FOR ILBO... MODULES. 
//* THE GENERATED DECK (SIMLINKV) IS PLACED ON INT.SYMTEST. 
//* NOTE: THE SPECIFIED FRONT END NETWORK TABLE (FENETWRK) THAT IS 
//* ON MODREL CONTAINS A DEFINITION FOR THE TEST TERMINAL 
//* TEST1 AS A LOCAL BTAM 3270 CRT. (COPY TO MODTEST) 
//* STEP NUM NUMBERS GENERATED LINK DECK IN INCREMENTS OF 1000 
//* FOR ADDING INCLUDE STATEMENTS IN GENINCL STEP. 
[LRH HHH HEHEHE KEKE EEE AEHHEH KKH KKK 
//GENLINK EXEC ASMPC,DECK=DECK,Q#TEST 
//ASM.SYSIN DD * 

ICOMLINK MMU=YES, FETABLE=FENETWRK, RECOBOL=NO, COBOL2=YES 
END 

//SYSPUNCH DD DSN=INT.SYMTEST(SIMLINKV) ,DISP=SHR 
//* NUMBER GENERATED LINKEDIT DECK 
/ /NUM EXEC LIBE,Q=TEST 
//LIB.SYSIN DD * 
./ CHANGE NAME=SIMLINKV 
./ NUMBER NEWL=1000, INCR=1000 

* 
shal Cai abana eaace Pein Wuaetatevaa ad salva Rinas tua seedsavauaesa eae 
//* $TEPS SCRSCR AND ALLOCSCR DELETE AND RE-ALLOCATE THE LOAD * 
//* MODULE LIBRARY USED IN THE TEST (ALSO USED FOR DYNLLIB) * 
[ [etek nkkkkknkkk kkk dkekhehkd eek dk eed hea a ee 
//SCRSCR EXEC PGM=IEFBR14 
//FILE1 DD DSN=INT.MODSCR, DISP=(OLD, DELETE) 
//ALLOCSCR EXEC PGM=IEFBR14 
//A DD DSN=INT.MODSCR,DISP=( ,CATLG) ,UNIT=SYSDA, 
// DCB=INT.MODREL, VOL=SER=INTOO1, 
// SPACE=(TRK,(30,,7)) 7 RECORDS PER TRK/3380 


**e+ te © + + + & © & +t & & H FH 
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[La EEE HEHEHE KEANE eae 


//* STEP GENINCL CREATES INCLUDE DECK USED BY THE LINK EDIT STEP: * 
//* THE ADDED INCLUDE STATEMENTS ARE FOR THE SAMPLE SUBSYSTEM * 
//* (ASSUMED TO HAVE BEEN LINKED TO MODTEST), * 
//* AND THE REQUIRED SIMULATION MODE MODULES. * 
//* IF THE TEST] TERMINAL IS NOT IN THE SYSTEM PMISTATB TABLE, USE: * 
//* INCLUDE MODREL(PMISTATB) * 
//* INCLUDE MODREL(PMIDEVTB) * 
//* INCLUDE MODREL(PMIBROAD) * 
//* THE ABOVE ASSUMES THE CONTROL TERMINAL IS NAMED CNTO1. * 

* 


[Lea Aa RHA Khhkkkhkkkhkkkkkkkhkkhkkhkkikkhkkhktkkkkkdkhkhkkhk 


//GENINCL EXEC PGM=IEBUPDTE 

//SYSPRINT DD SYSOUT=A TO PRINT CHANGES 
//SYSUT1 DD DSN=INT.SYMTEST,DISP=SHR 

//SYSUT2 DD DSN#&&INCL,DISP=(, PASS) , UNIT=SYSDA,SPACE=(TRK,(8,1,1)), 
// DCB=( BLKSIZE=80, LRECL=80) 

//SYSIN DD * 

./ CHANGE NAME=SIMLINKV,LIST#ALL 


INCLUDE SYSLIB(SQCOBOLV) TEST SUBSYSTEM 00000010 
INCLUDE SYSLIB(BTAMSIM) BTAM SIMULATOR 00000020 
INCLUDE SYSLIB(SIM3270) SCREEN PRINTING 00000030 
INCLUDE SYSLIB(IGZETUN) VS COBOL2 TUNING TABLE (IF NEEDED) 00000040 
* 

Desa au taaieawcatws ata sain mieean saa saae ees eee 

//* LINK EDIT THE TEST INTERCOMM SYSTEM. * 

//* NOTE THAT THE INTERCOMM LKEDT PROC PLACES THE LOAD MODULE ON * 

//* THE MODSCR LOAD LIBRARY CREATED ABOVE. * 

] [str iii iii bikie 

//LKED EXEC LKEDT,Q=TEST,LMOD=SIMICOM, 

// PARM.LKED=’ LIST, LET, XREF , NCAL, SIZE=(250K, 100K) ’ 

//LKED.SYSLIB DD 

/ DD 

// DD 

// DD 

// DD DSN=SYS1.COB2LIB,DISP=SHR (OVERRIDE SYS1.COBLIB) 


//SYSIN DD DSN=&&INCL(SIMLINKV) , DISP=(OLD, PASS) 
//MODREL DD DSN=INT.MODREL, DISP=SHR 
[LEAMA h ehhh hahahahaha 
//* LINKEDIT THE DYNAMICALLY LOADABLE SUBROUTINE * 
//* FROM MODTEST (Q= POINTS TO IT) TO MODSCR * 
L [RARER KKEKE KKK kkkkkkkkhhkhkhkkkhkhekhhhhhe 
//LINKSQB EXEC LKEDT,Q=TEST, LMOD=SQCOBOLB 
//SYSIN DD * 

INCLUDE SYSLIB(SQCOBOLB) 


/* 

//* 

J [Re tte et a ee ee EEE EEE EEE EEE EEE ERE Ee 
//** ENSURE THE INTERCOMM VERSIONS OF VS COBOL II COBPACKS .* 
//** IGZCPCO AND IGZCPAC we 
//** ARE ON ONE OF THE STEPLIB LIBRARIES BEFORE SYS1.COB2LIB ballad 
/ [a FOR THE GO STEP (OTHERWISE RELINK THEM TO MODSCR). belied 


LL RACER EHH hhdk hhh deh 
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[ [eke kkkkkkkkkhkkkkhhkkkhkkkkhhkkkhkkkkkkkkkkkkhhkkkhkhkhhkkhhkkkhhhhhthik 


//* EXECUTE INTERCOMM IN SIMULATION MODE 7 
[[eeeeakekkheakkktkhkkkkkkkkkkkkkkkkkhkkkkkkkkikkdkkkkkkkhkkkekkhkkik kk 
//GO EXEC PGM=SIMICOM, PARM=’STARTUP’ , TIME=(,30) 
//STEPLIB DD DSN=INT.MODSCR,DISP=(OLD, PASS) 
DD DSN=INT.MODLIB,DISP=SHR 
DD DSN=INT.MODREL, DISP=SHR 
DD DSN=SYS1.COB2L1B,DISP=SHR VS COBOL II LOAD LIBRARY 
//INTERLOG DD DSN=&&INTLOG, DISP=(NEW, PASS) , 
// DCB=(DSORG=PS, RECFM=VB, BLKSIZE=4096, LRECL=4092, NCP=8 ,OPTCD=C) , 
// SPACE=(TRK, (10,5) ), VOL2SER@INT100, UNIT=SYSDA 
//SMLOG DD SYSOUT=A, DCB=(DSORG=PS, BLKSIZE2120, RECFM=FA) 
//STSLOG DD SYSOUT=A,DCB=(DSORG=PS, BLKSIZE=120, RECFM=FA) 
//SYSPRINT DD SYSOUT=A,DCB=(DSORG=PS, BLKSIZE=141, LRECL=137, RECFM=VA) 
//RCTO00 DD DSN=INT.RCTO00, DISP=SHR, DCB=(DSORG=DA, OPTCD=RF) 
//PMIQUE DD DSN=INT.PMIQUE, DCB=(DSORG=DA,OPTCD=R) , DISP=SHR 
//BTAMQ DD DSN=INT.BTAMQ, DCB=(DSORG=DA, OPTCD=R) , DISP=SHR 
//INTSTOR2 DD DSN=INTSTOR2 , DCB=(DSORG=DA, OPTCD=EF , LIMCT=3) , DISP=SHR 
//INTSTOR3 DD DSN=INTSTOR3 , DCB=(DSORG=DA, OPTCD=EF , LIMCT=3) , DISP=SHR 
//* TEST DATA SETS FOR SAMPLE SUBSYSTEM 
//STOKFILE DD DSN=VSAMSD1.STCKFILE.CLUSTER,DISP=OLD, 
// AMP=(AMORG, ’ RECFM=F’ ) 
//PARTFILE DD DSN=INT.BETA.PARTFILE,DISP=OLD, 
// DCB=(DSORG=DA, OPTCD=R) 
//* DATA SETS FOR SIMULATED TERMINAL -- TEST1 
//TEST1 DD DSN=INT.TTEST1,DCB=DSORG=PS, DISP=OLD 
//SCRTEST1 DD SYSOUT=A,DCB=(DSORG=PS, RECFM=FA, BLKSIZE=121) 
//SIMCARDS DD * 
TEST1,002 
//PMISTOP DD DUMMY DELIMIT INTERCOMM FILES 
//* FAR PARAMETERS 
//* (TO USE, CHANGE ICOMIN TO DD *, FOLLOW WITH FARS INLINE) 
//ICOMIN DD DUMMY 
//* DYNAMIC LINKEDIT DATA SETS 
//DYNLLIB DD DSN=INT.MODSCR,DISP=(OLD, PASS) 
//DYNLPRNT DD SYSOUT=A 
//* 
//SNAPDD DD SYSOUT=A,SPACE=(CYL,5) , FREE=CLOSE 
//SYSUDUMP DD SYSOUT=A 
//SYSOUT DD SYSOUT=A FOR DISPLAY VERB OUTPUT 
//* : 
//ABNLIGNR DD DUMMY FORCE ABEND-AID TO IGNORE DUMP (PRODUCE IBM DUMP) 


[ [eee kkkkkkkkhikkkhhkkihkknkikkhkkkkikkkkakhkhkkknkkhhkihkikikkkikikkik 


//* PRINT INTERCOMM LOG GENERATED BY THE TEST * 
[[eekkkkekkkkkkhkkkkkkkkkackkkkkkdkkkkkkkkkkhhhkkkkkkkkkkakkkkkkkkkkkhik 
//INTERLOG EXEC PGM=LOGPRINT,COND=EVEN 

//STEPLIB DD DSN=INT.MODREL,DISP=SHR 

//SYSPRINT DD SYSOUT=A,DCB=(DSORG=PS, BLKSIZE#121) 

//INTERLOG DD DSN#&&INTLOG, DISP=OLD, DCB=BLKSIZE=5000 

//SYSIN DD DUMMY 

// 
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Appendix A 


COBOL JCL PROCEDURES 


A.1 OS/VS_ and ANS COBOL COMPILE AND LINK JCL 


The following JCL procedures are supplied on the Intercomm release 
library, SYMREL. Check with your System Manager before using them to 
ensure they reside on your installation’s system procedure library 
(SYS1.PROCLIB) and to verify parameters to code. When appropriate, 
SYSLIB references Intercomm libraries. 


COBUPC: COBOL compile 
// EXEC COBUPC ,Q=TEST , NAME=COBPROG 


COBUPCL: COBOL compile and linkedit for a resident program, 
dynamically loaded program which will be dynamically 
linkedited at Intercomm startup (the linkedit step PARM 
overrides AMODE=31 and RMODE=ANY cause the program to be 
loaded above the 16M line). 


Example: // EXEC COBUPCL, Q=TEST , NAME=COBPROG , LMOD=COBPROG 
// PARM. LKED=’ LIST, XREF, LET,NCAL,REUS , AMODE=31 , RMODE=ANY’ 


IEBUPDTE step, followed by COBOL compilation producing 
object module only: add 

//LIB.SYSIN to specify IEBUPDTE control and change cards. 
// EXEC LIBECOB , Q=TEST , NAME=COBPROG , OMOD=COB PROG 


LIBECOBL: IEBUPDTE step, followed by same JCL as COBUPCL. 


Note; LKED override parms for 31 Amode, as in COBUPCL, may be 
used. 


Figure A-l. Intercomm-supplied COBOL JCL Procedures 


Refer to the Intercomm Operating Reference Manual for further 
details on JCL parameter requirements, and other COBOL procedures for 


COBOL-F and a dynamically loaded non-reentrant (does not call COBREENT) 
program which is not dynamically linkedited (linked with INTLOAD). 


NOTES: if not using Intercomm-supplied JCL, ensure NCAL option 
used on linkedit step parms: 
if program written as psuedo-reentrant (uses DWS and only 
calls COBREENT), add REUS to linkedit parms; 
NODYNAM is a required compiler option - add it to compile 
step PARM= parameters if the system default is DYNAM. 
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A.2 VS COBOL II COMPILE and LINK JCL 


//COB2PC PROC NAME=MISSING, Q=XYZ,P=INT, L=LIB, U=USR 

//COB EXEC PGM=IGYCRCTL, 

// PARM=(LIST,MAP,NOFDUMP , NOTEST, RENT, XREF, ’DATA(24)’ ,RES, NODYNAM, 

"TRUNC(BIN) ' ,NOOBJECT, NUM, NOVBREF , LIB, 'LINECOUNT(55)’) 

//STEPLIB DSN=SYS1.COB2COMP,DISP=SHR COBOL II COMPILER LIBRARY 

//SYSLIB DSN=&P. . SYM&Q , DISP=SHR USER PROGRAMS 
DSN=&P. . SYM&U , DISP=SHR USER MAPS/COPY MEMBERS 
DSN=&P . . SYM&L, DISP=SHR SYMLIB 

// DSN=&P.. SYMREL, DISP=SHR SYMREL 

//SYSUT1 UNIT=SYSDA , SPACE=(CYL, (1,1)) 

//SYSUT2 UNIT=SYSDA , SPACE=(CYL, (1,1)) 

//SYSUT3 UNIT=SYSDA , SPACE=(CYL, (1,1)) 

//SYSUT4 UNIT=SYSDA, SPACE=(CYL, (1,1)) 

//SYSUT5 UNIT=SYSDA , SPACE=(CYL, (1,1)) 

//SYSUT6 UNIT=SYSDA , SPACE=(CYL, (1,1)) 

//SYSUTT UNIT=SYSDA , SPACE=(CYL, (1,1)) 

//SYSPRINT DD SYSOUT=A 

//SYSLIN DD DUMMY 

//SYSIN DD DSN=&P..SYM&Q.(&NAME) , DISP=SHR 


Figure A-2. VS COBOL II JCL to Compile a Program 


This PROC should be placed on the Intercomm PROCLIB. To use this PROC 
code: 


//COMPILE EXEC COB2PC,NAME=progran,Q=program-library-suffix, 
// P=Intercomm-libraries-prefix 


Note that the P parameter may be hard-coded in the PROC (replace the 
value INT with the desired library-prefix-name). 
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//COB2PCL PROC NAME=MISSING ,Q=XYZ, P=INT, L=LIB, U=USR, LMOD=GO , AM=24 , RM=24 
//COB EXEC PGM=IGYCRCTL, 
//  PARM=(LIST,MAP ,NOFDUMP , NOTEST, RENT, XREF, 'DATA(24)',RES,NODYNAM, 
'TRUNC(BIN) ’ , OBJECT, NUM, NOVBREF , LIB, ’LINECOUNT(55)’) 

//STEPLIB DD DSN=SYS1.COB2COMP,DISP=SHR COBOL II COMPILER LIBRARY 
//SYSLIB DD DSN=&P..SYM&Q,DISP=SHR USER PROGRAMS 
// DD DSN=&P..SYM&U,DISP=SHR USER MAPS/COPY MEMBERS 
// DD DSN=&P..SYM&L, DISP=SHR SYMLIB 
// DD DSN=&P..SYMREL,DISP=SHR SYMREL 
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL, (1,1)) 
//SY¥SUT2 DD UNIT=SYSDA,SPACE=(CYL, (1,1)) 
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 

1)) 

1)) 

1)) 


//SYSUTS DD UNIT=SYSDA,SPACE=(CYL, (1, 

//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL, (1, 

//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL, (1, 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD DSN=&P..SYM&Q.(&NAME) , DISP=SHR 

//SYSLIN DD DSNAME=&&LOADSET ,DISP=(MOD, PASS) , UNIT=SYSDA, 

// SPACE=(TRK, (3,3) ) , DCB=(BLKSIZE=80 , LRECL=80 , RECFM=FB) 
/ /LKED EXEC PGM=IEWL, 

// PARM=’ LIST , XREF , MAP, LET , NOCALL, RENT , AMODE=&AM , RMODE=&RM’ , 
// COND=(5, LT, COB) 

//SYSLIB DD DSN=SYS1.COB2LIB ,DISP=SHR 

// DD DSN=&P..MOD&Q, DISP=SHR 

// DD DSN=&P..MODLIB, DISP=SHR 

// DD DSN=&P..MODREL, DISP=SHR 

//SYSLMOD DD DSN=&P..MOD&Q.(&LMOD) , DISP=SHR 

//SYSPRINT DD SYSOUT=A 

//SYSLIN DD DSNAME=&&LOADSET , DISP=(OLD, DELETE) 

// DD DDNAME=SYSIN 

//SYSUTL DD UNIT=SYSDA,SPACE=(CYL, (1,1)) 

//SYSIN DD DUMMY 


Figure A-3. VS COBOL II JCL to Compile and Link a Program 


This PROC should be placed on the Intercomm PROCLIB. To use this PROC 
code: 


//COMPLINK EXEC COB2PCL,NAME=source-program, LMOD=load-name, 


// Q=program-library-suffix, P=Intercomm-libraries-prefix 

Note: the parameters AM and RM are used to specify to the Linkage 
Editor the execution time AMODE and RMODE if the program is 
dynamically loaded (not in Intercomm linkedit). Add 


AM=31,RM=ANY to the EXEC statement to cause a program to be 
loaded above the 16M line. 


The linkedit parameters RENT, NOCALL and LET are required. 
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Appendix B 


SOURCE STATEMENT LIBRARY COPY MEMBERS 


The following members in the Intercomm SYMREL source library 
contain source statement code which can be inserted in a COBOL 
subsystem procedure simply by coding COPY member-name at the desired 
source line. SYMREL must be named in the DD statement concatenation 
for the SYSLIB data set for compilations (automatic if 
Intercomm-supplied COBOL procedures used). 


NOTE: The block size of SYMREL is 6160 as released. 
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Source Statement Library 
Copy Members 


Appendix B 


ICOMHEXC 


The ICOMHEXC member defines a series of commonly used one-byte 
codes. Many are defined by multi-punches, hence the VALUE printed may 
not reflect the actual hexadecimal code; to be COPYed into Working- 
Storage Section. 


O01 HEX-CODES. 


HEX-00 
CODE-00 
HEX-15 
CODE-21 
HEX -37 
CODE-55 
HEX-50 
CODE-80 
HEX-51 
CODE-81 
HEX-52 
CODE-82 


HEX-53 
CODE-83 
HEX-54 
CODE-84 
HEX-55 


PIC X VALUE ’ ’. 


REDEF INES 
PIC X VALUE 
REDEF INES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEF INES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 
REDEFINES 
PIC X VALUE 


CODE-225 REDEFINES 


Figure B-l. 
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230 


MoM MM MM MoM MM 


Appendix B Source Statement Library 
Copy Members 


ICOMINMG 


The ICOMINMG member provides an input message header definition 
for use in the Linkage Section (first 01 level). Figures B-2, B-3, and 
B-4 describe various system level versions of ICOMINMG. 


O01 INPUT-MESSAGE. 
04 MESSG-HDR. 

MSGH- LENGTH $9999 COMP. 
MSGH-QPR 
MSGH-RSCH 
MSGH-RSC 
MSGH-SSC 
MSGH -MMN 
MSGH-DATE. 
08 MSGH-YR 
08 MSGH-PERIOD 
08 MSGH-JULIAN-DAY 
MSGH- TIME. 
08 MSGH-HH 
08 MSGH-MM 
08 MSGH-SS 
08 MSGH-TH 
MSGH-TID. 
08 MSGH-TI1 
08 MSGH-TI2-3 
08 MSGH-TI4-5 
MSGH-FLGS 
MSGH- PID 
MSGH-PIDX REDEFINES MSGH-PID. 
08 FILLER 
08 MSGH-BMN 
MSGH-SSCH 
MSGH-ADDR 
MSGH-ADRX REDEFINES MSGH-ADDR. 
08 MSGH-USR 
08 FILLER 
MSGH- LOG 
MSGH-BLK 
MSGH- VMI 


Figure B-2. New Release 10 ICOMINMG COPY Member 
(post SM Level 2240) 
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Appendix B Source Statement Library 
Copy Members 


ICOMINMG con’t. 


Ol INPUT-MESSAGE. 
04 MESSG-HDR. 

MSGH- LENGTH 
MSGH-QPR 
MSGH-RSCH 
MSGH-RSC 
MSGH-SSC 
MSGH- MMN 
MSGH-DATE. 
08 MSGH-YR 
08 MSGH-PERIOD 
08 MSGH-JULIAN-DAY 
MSGH-TIME. 
08 MSGH-HH 
08 MSGH-MM 
08 MSGH-SS 
08 MSGH-TH 
MSGH-TID. 
08 MSGH-TI1 
08 MSGH-TI2-3 
08 MSGH-TI4-5 
MSGH-CON 
MSGH-FLGS 
MSGH - BMN 
MSGH-SSCH 
MSGH-USR 
MSGH-ADDR 
MSGH- LOG 
MSGH- BLK 
MSGH- VMI 


Figure B-3. Basic Release 10 ICOMINMG COPY Member 
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Appendix B Source Statement Library 


Copy Members 
( ICOMINMG con’t. 


O01 INPUT-MESSAGE. 
04 MESSG-HDR. 

MSGH- LENGTH S9999 COMP. 

MSGH-QPR 

MSGH-RSCH 

MSGH-RSC 

MSGH-SSC 

MSGH-MMN 

MSGH-DATE. 

08 MSGH-YR 

08 MSGH-PERIOD 

08 MSGH-JULIAN-DAY 

MSGH-TIME. 

08 MSGH-HH 

08 MSGH-MM 

08 MSGH-SS 

08 MSGH-TH 

MSGH-TID. 

08 MSGH-TI1 

08 MSGH-TI2-3 

08 MSGH-TI4-5 99, 

MSGH-CON S9999 COMP. 

MSGH- PID X(5). 

MSGH-SSCH X. 
ww MSGH-USR X. 

MSGH- BMN XX, 

MSGH-LOG X. 

MSGH-BLK X. 

MSGH-VMI X. 


Figure B-4. Release 9 ICOMINMG COPY Member 
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Appendix B Source Statement Library 
Copy Members 


ICOMDWS 


The ICOMDWS member provides a Dynamic-Work-Space definition with 
an output message header for use in the Linkage Section (fifth 01 
level) of reentrant subsystems. (It can also be used in the Working- 
Storage Section of nonreentrant or VS COBOL II subsystems). Figures 
B-5, B-6, and B-7 describe various system level versions of ICOMDWS. 


O01 DYNAMIC-WORKING-STORAGE. 
02 OUTPUT-MESSAGE. 
04 OMESSG-HDR. 

OMSGH- LENGTH $9999 COMP. 
OMSGH-QPR 
OMSGH-RSCH 
OMSGH-RSC 
OMSGH-SSC 
OMSGH-MMN 
OMSGH-DATE. 
08 OMSGH-YR 
08 OMSGH-PERIOD 
08 OMSGH-JULIAN-DAY 
OMSGH-TIME. 
08 OMSGH-HH 
08 OMSGH-MM 
08 OMSGH-SS 
08 OMSGH-TH 
OMSGH-TID. 
08 OMSGH-TIL 
08 OMSGH-TI2-3 
08 OMSGH-TI4-5 
OMSGH-FLGS 
OMSGH- PID 
OMSGH-PIDX REDEFINES OMSGH-PID. 
08 FILLER PIC 
08 OMSGH-BMN PIC 
OMSGH-SSCH PIC 
OMSGH-ADDR PIC 
OMSGH-ADRX REDEFINES OMSGH-ADDR. 
08 OMSGH-USR 
08 FILLER 
OMSGH- LOG 
OMSGH- BLK 
OMSGH- VMI 


Figure B-5. New Release 10 ICOMDWS COPY Member 
(post SM Level 2240) 
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Appendix B Source Statement Library 


Copy Members 
¢ ICGOMDWS con't. 


Ol DYNAMIC-WORKING-STORAGE. 
02 OUTPUT-MESSAGE. 
04 OMESSG-HDR. 

OMSGH - LENGTH $9999 COMP. 
OMSGH-QPR PIC 
OMSGH-RSCH PIC 
OMSGH-RSC PIC 
OMSGH-SSC PIC 
OMSGH -MMN PIC 
OMSGH- DATE. 
08 OMSGH-YR PIC 
08 OMSGH-PERIOD PIC 
08 OMSGH-JULIAN-DAY PIC 
OMSGH-TIME. 
08 OMSGH-HH PIC 


08 OMSGH-MM PIC 
08 OMSGH-SS PIC 
08 OMSGH-TH PIC 


OMSGH-TID. 
08 OMSGH-TI1 PIC 
08 OMSGH-TI2-3 PIC 
08 OMSGH-TI4-5 PIC 99. 
OMSGH- CON PIC S9999 COMP. 
ae OMSGH-FLGS PIC X(2). 
OMSGH - BMN PIC X(3). 
OMSGH-SSCH PIC X. 
OMSGH-USR PIC X. 
OMSGH-ADDR PIC XX. 
OMSGH- LOG PIC X. 
OMSGH- BLK PIC X. 
OMSGH- VMI PIC X. 


Figure B-6. Basic Release 10 ICOMDWS COPY Member 
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Appendix B Source Statement Library 
Copy Members 


ICOMDWS con’t. 


01 DYNAMIC-WORKING-STORAGE. 
02 OUTPUT-MESSAGE. 
04 OMESSG-HDR. 
OMSGH - LENGTH $9999 COMP. 
OMSGH-QPR 
OMSGH-RSCH 
OMSGH-RSC 
OMSGH-SSC 
OMSGH-MMN 
OMSGH-DATE. 
08 OMSGH-YR 
08 OMSGH-PERIOD 
08 OMSGH-JULIAN-DAY 
OMSGH-TIME. 
08 OMSGH-HH 


08 OMSGH-MM 
08 OMSGH-SS 
08 OMSGH-TH 


OMSGH-TID. 

08 OMSGH-TI1 

08 OMSGH-TI2-3 : 
08 OMSGH-TI4-5 99. 
OMSGH-CON S9999 COMP. 
OMSGH- PID X(5). 
OMSGH-SSCH X. 
OMSGH-USR X. 
OMSGH- BMN XX. 
OMSGH- LOG X. 
OMSGH- BLK X. 
OMSGH- VMI X. 


Figure B-7. Release 9 ICOMDWS COPY Member 
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Appendix B Source Statement Library 
Copy Members 


ICGOMSBS 


The ICOMSBS member defines the computational halfword constants 
used by reentrant COBOL subsystems and subroutines in calls through 
COBREENT to the named Intercomm system service routines and to user 
subroutines, if added. 


, 


Ol REENTSBS-CODES. 

THESE CODES REPRESENT OFFSETS FOR ROUTINE ADDRESSES IN THE 

TABLE NAMED REENTSBS. ONLY THE MOST COMMONLY USED VALUES 

ARE INCLUDED HERE; THE USERS MANUAL HAS A COMPLETE LIST. 

IF OFFSET ODD, THEN TRUE OFFSET=- (OFFSET+1) 
INITLU6 PIC COMP VALUE 
INTSORTC PIC COMP VALUE 
DWS -SNAP PIC COMP VALUE 
MAPFREE PIC COMP VALUE 
FECMRLSE PIC COMP VALUE 
FESEND PIC COMP VALUE 
FESENDC PIC COMP VALUE 
DYN-ALLOCATE PIC COMP VALUE 
DYN-ACCESS PIC COMP VALUE 
MAPURGE PIC COMP VALUE 
MAPCLR PIC COMP VALUE 
MAPEND PIC COMP VALUE 
MAPOUT PIC COMP VALUE 
MAPIN PIC COMP VALUE 
INTUNSTO PIC COMP VALUE 
INTSTORE PIG COMP VALUE 
INTFETCH PIC COMP VALUE 
FECMFDBK PIC COMP VALUE 
FECMDDQ PIC COMP VALUE 
DQ-WRITEX PIC COMP VALUE 
DQ-READX PIC COMP VALUE 
DQ-WRITE PIC COMP VALUE 
DQ-READ PIC COMP VALUE 
DQ-CLOSE PIC COMP VALUE 
DQ-OPEN PIC COMP VALUE 
DQ-BUILD PIC COMP VALUE 
FH-SELECT PIC COMP VALUE 
FH-RELEASE PIG COMP VALUE 
FH-READ PIC COMP VALUE 
FH-WRITE PIG COMP VALUE 
FH-GET PIC COMP VALUE 
FH- PUT PIC COMP VALUE 
FH-RELEX PIC COMP VALUE 
FH-FEOV PIC COMP VALUE 
TABUILD PIC COMP VALUE 
TABOPEN PIC COMP VALUE 
TABPUT PIC COMP VALUE 
TABGET PIC COMP VALUE 
TABSORT PIC COMP VALUE 
TABEND PIC COMP VALUE 


Figure B-8. ICOMSBS COPY Member (Page 1 of 2) 
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Appendix B Source Statement Library 
Copy Members 


COBPUT 9¢4) COMP VALUE 
MSGCOL 9(¢4) COMP VALUE 
COBSTORF 9(4) COMP VALUE 
CONVERSE 9(4) COMP VALUE 
DBINT 9(¢4) COMP VALUE 


LOGPUT 9(¢4) COMP VALUE 
PAGE-FILE 9(4) COMP VALUE 
FH-GETV 9(4) COMP VALUE 
FH-PUTV 9(¢4) COMP VALUE 
CODES 104 AND UP INDICATE USER ADDITIONS TO THE TABLE 


Figure B-8. ICOMSBS COPY Member (Page 2 of 2) 


NOTE: INITLU6 and TABUILD through TABEND are not supported below SM 
level 2241. INTSORTC and DWS-SNAP are not supported for Release 
iP 
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Appendix C 


INTERCOMM TABLE SUMMARY 


Basic tables are included in the Intercomm release library 
(SYMREL) and must be modified (added to) for each installation. An 
asterisk (*) indicates optional tables which may be generated 
individually at each installation according to application program 
requirements. 


SYMREL and 


TABLE or 
CSECT 
Name 


MODREL 
Description Created by Member Name 


BROADCST *Output Broadcast Table BCGROUP macro PMIBROAD 
BTAMSCTS Front End Queue Table SYCTTBL macro BIAMSCTS 
(BTAM/TCAM/GFE only) 


BTVRBTB Front End Verb Table BTIVERB macro BTVRBTB 
Front End Network LINEGRP, BLINE FENETWRK 
Configuration Table BTERM macros, etc.| (BTSAMP) 
VCT, LUNIT, (VTSAMP ) 
LCOMP macros, etc. 
CHNGTB *Change Table for DC’s None 
Change/Display Utilities 
File *File Descriptions Data | FDHDR, FDETL 
Description) Set (DES000); generated macros 
Records by file load utility 
(DESnnnnn ) PMIEXLD (for Change/ 
Display Utility) 


ewe ee f2x2er ww ewe = = = = ewe es weweeweweewew sw FBP FZ ZF w2eweeeee® as = — = Pwr enweFwewwewwZ ew Zs BW 2s ese |S — = -=_s @weewewrw Be @ es = = 


(User-name) 


IXFDSCTn File Handler Data Set IXFDSCTA macro IXFDSCT1 
Control Table (50 DDs) 

IXFDSCT2 
(100 DDs) 

IXFDSCT3 


(200 DDs) 
KEYTABLE *Display Utility Key None 
Transformation Routing 
Table 


=e wee ew weeseee se =|] — meerwewrweewewew ew ew 2 ese Fe ese nwr ew @ |] =| Ss ess es = wo eee ew Peer ewweweerewesw @ =] =] =—_ = = as e2# = @ = ew ewe] = | =| - = 


PADDTBLE *Edit Utility Pad Table PADDTBLE 


Figure C-1. Table Names and Associated Macro Instructions (Page 1 of 2) 


239 


Appendix C 


PAGETBL 


PMIALTRP 


PMIDEVTB 


PMIFILET 


PMIRCNTB 


PMIRPTAB 


PMISTATB 


PTRNTBLE 


REENTSBS 


REPTAPE 


SPA/SPAEXT 


ScT 


TUNERTBL 


VERBTBL 


Description 


*Page Facility Table 
(obsolete - Rel 10) 


*Output Utility Alternate 
Format Table 


Back End Device Table 
*Change/Display File Table 


*Output Utility Format Table 
(OFT) 


*Output Utility Company/ 
Report/Terminal Table 


Back End Station Table 


*Display Utility Symbol Edit 
Pattern Table 


Subroutine Entries List 


*Output Utility Batch Report 
Table 


System Parameter Table (SPA) 


Subsystem Control Table 
(SCT) 


Fine Tuner Subsystem 
Commands (obsolete - Rel 10) 


*Edit Control Table (ECT) 


Intercomm Table Summary 


Created by 


PAGETBL macro 


PMIALTRN macro 


DEVICE macro 
GENFTBLE macro 
CSECT 


REPORT, LINE 
ITEM macros 


PMISTOP macro 


DC’s 


STATION macro 


PATRN macro 


SUBMODS macro 


DC’s 


SPALIST macro 


SYCTTBL macro 


DC's 


VERBGEN, VERB, 
PARM, PMIELIN 
macros 


SYMREL and 
MODREL 
Member Name 


PAGETBLE 


None 


PMIDEVTB 


PMIFILET 


PMIRCNTB 


RPTnnnnn 


PMIRCEND 


None 


PMISTATB 


None 


REENTSBS 


None 


INTSPA 


INTSCT 


PMIVERBS 


Figure C-1. Table Names and Associated Macro Instructions (Page 2 of 2) 
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Appendix C Intercomm Table Summary 


i ee a a a ee 
‘= SSeS eee ———————— 


Component Name Tables Used 


Change/Display Utility CHNGTB 

File Description Records 

KEYTABLE 

PMIFILET 

PTRNTBLE 
Edit Utility PADDTBLE 

PMIFILET 

PMIVERBS 

PMIDEVTB 

PMISTATB 
File Handler IXFDSCTn 

FAR statements 
Front/End TP Interface BIVRBTB 

Front End Network Table 

BTAMSCTS (BTAM only) 
Message Mapping Utilities MMUVTBL 

LOGCHARS 

PMIDEVTB 

PMISTATB 

User-coded Maps 
Monitor REENTSBS 

INTSPA 

INTSCT 

BROADCST 

TUNERTBL (obsolete - Rel 10) 
Output Utility PMIALTRP 

PMIDEVTB 

PMIFILET 

PMIRCNTB 

PMIRPTAB 

PMISTATB 

REPTAPE 

RPTnnnnn (user-coded OFTs) 


ewer 2, werewe® w@ewe® w@ewe ws#eweeerwereweeew ns wZBFFTF FZ ei wesw & = se = = we _—e wPeewewee eer ewe wQeweew ws Fe ws ew wFeew we ewvw# Bs es BF ew Bs Few eo = 


Page Facility PAGETBLE (obsolete - Rel 10) 


Figure C-2. Components and Associated Table Names 
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Appendix D 


CALLING USER SUBROUTINES FROM REENTRANT SUBSYSTEMS 


COBOL programs created under Intercomm Release 8.0 (and lower) 
needed certain coding conventions followed for calling user-coded COBOL 
subroutines which themselves contain calls to COBREENT. 


COBREENT saves registers, parameter lists, and other program 
specifications prior to calling the requested subroutine and restores 
these values for return to the calling program. An area of dynamic 
storage is therefore required by COBREENT. 


There is a 256-byte save area utilized by COBREENT which is 
prefixed to the Dynamic-Work-Space associated with message processing 
for a reentrant COBOL subsystem. This area is transparent to the 
user. However, a subsystem which calls a COBOL subroutine in turn 
calling COBREENT must provide a 256-byte save area prefix as part of 
the passed Dynamic-Work-Space to be used by the _ subroutine. The 
address +256 of this area is passed as the fifth parameter to the 
called subroutine. 


For example, Subsystem A may require 72 bytes of Dynamic-Work- 
Space for message processing. An additional 120 bytes of Dynamic-Work- 
Space will be utilized by Subroutine X which is called by Subsystem A 
via COBREENT. Subroutine X also calls COBREENT. The DWS definition in 
Subsystem A must include 256 bytes (aligned) to be used as a Save area 
by COBREENT when called by Subroutine X. When Subsystem A is 
activated, the GET parameter of the SYCTTBL must specify 448 bytes of 
Storage to be obtained (72 bytes for Subsystem A plus 256 bytes for 
COBREENT save area for Subroutine X plus 120 bytes for Subroutine X 
Dynamic-Work-Space). See Figures D-1l and D-2. 


Figures D-3 and D-4 illustrate this example. The corresponding 
COBOL coding for Subsystem A is shown in Figure D-3, for Subroutine xX 
in Figure D-4. 


Subroutines called by the reentrant COBOL subsystem may not be 
passed any parameter defined to be longer than 4095 bytes if the 
subroutine in turn calls COBREENT using that same parameter. This is a 
COBOL compiler restriction on BLL cell addressability for passed 
parameters. 


The called subroutine may not in turn call COBREENT to call 
another user COBOL subroutine; only Intercomm service routines or 
Assembler subroutines may be called from the_ subroutine. The 
subroutine-code of the SUBMODS entry in USRSUBS (COPY’d into REENTSBS) 
defining the subroutine must be added to ICOMSBS, or may be defined in 
the 77-level WORKING-STORAGE of the subsystem as illustrated in Figure 
D-3. 
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Appendix D Calling User Subroutines 
from Reentrant Subsystems 


SUBSYSTEM A 
SUBSYSA 


CALL COBREENT 


SUBROUTINE X 


COBSUBX 
CALL COBREENT 


SYSTEM PROGRAM 
(LOGPUT) 


GOBACK 


GOBACK 


Figure D-1l. COBOL Subsystem/Subroutine Nested Calls 


5TH ENTRY PARM 
SUBSYSA TO SUBSYSA 


WORK SPACE 
X(72) 
DOUBLE WORD 
SYCTTBL COBSUBX ALIGNED 
(COMP -2) 
GET=448 COBREENT SAVE AREA 
SUBSYSA DWS X(256) 


5TH ENTRY PARM 
COBSUBX TO COBSUBX 


WORK SPACE 


X(120) 


Figure D-2. COBREENT Save Areas 
244 


Appendix D Calling User Subroutines 
from Reentrant Subsystems 


WORKING-STORAGE SECTION. SUBSYSA 

77 COBSUBX-POINTER PICTURE S9(4) COMP VALUE +104. SUBSYSA 

* THIS IS THE LOCATION IN REENTSBS OF THE COBSUBX VCON. SUBSYSA 

LINKAGE-SECTION. SUBSYSA 

INPUT -MESSAGE PIC X(500). SUBSYSA 

SPA PIC X(500). SUBSYSA 

scT PIC X(100). SUBSYSA 

R-CODE PIC S9(7) COMP. SUBSYSA 

DWS. SUBSYSA 

02 SUBSYSA-WORK-AREAS. SUBSYSA 

05 MISCELLANEOUS -AREAS PIC X(56). SUBSYSA 

05 CODE-FIELD PIC 99. SUBSYSA 

05 PARM-ALIGNMENT PIC S9(7) COMP. SUBSYSA 

05 LOGIC-PARM-FOR-COBSUBX PIC 99. SUBSYSA 

02 FORCE-DOUBLE-WORD COMP-2 SYNC. SUBSYSA 

02 COBREENT-SAVE-AREA-FOR-COBSUBX PIC X(256). SUBSYSA 

02 COBSUBX-DWS PIC X(120). SUBSYSA 

PROCEDURE DIVISION SUBSYSA 

USING INPUT-MESSAGE, SPA, SCT, R-CODE, DWS. SUBSYSA 

; SUBSYSA 

SUBSYSA 

; SUBSYSA 

CALL ‘COBREENT’ SUBSYSA 

USING COBSUBX-POINTER, INPUT-MESSAGE, SPA, SCT, SUBSYSA 

R-CODE, COBSUBX-DWS, LOGIC-PARM-FOR-COBSUBX. SUBSYSA 

SUBSYSA 

SUBSYSA 

: SUBSYSA 

MOVE CODE-FIELD TO R-CODE. SUBSYSA 
GOBACK. 


Figure D-3. Reentrant Subsystem Sample Coding. 
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Appendix D Calling User Subroutines 
from Reentrant Subsystems 


WORKING-STORAGE SECTION. COBSUBX 
77 CONSTANT-ITEMS PIC X9(8) VALUE 'CONSTANT’. COBSUBX 
77 LOGPUT-POINTER-88 PIC S9(4) COMP VALUE +88. COBSUBX 
LINKAGE -SECTION COBSUBX 
Ol Pl PIC X. COBSUBX 
Ol P2 PIC X. COBSUBX 
Ol P3 PIC X. COBSUBX 
Ol P4 PIC X. COBSUBX 
01 DYNAMIC-WORK-SPACE COBSUBX 
02 MISCELLANEOUS-WORK-AREAS PIC X(120). COBSUBX 

‘ COBSUBX 

; COBSUBX 

Ol MY-FIRST-SUBROUTINE-PARAMETER PIC 99. COBSUBX 
PROCEDURE DIVISION COBSUBX 
USING Pl, P2, P3, P4, DYNAMIC-WORK-SPACE, COBSUBX 
MY-FIRST-SUBROUTINE- PARAMETER. COBSUBX 

COBSUBX 

‘ COBSUBX 

GO TO ERROR1, ERROR2, ERROR3, ETC. COBSUBX 
DEPENDING ON MY-FIRST-SUBROUTINE- PARAMETER. COBSUBX 

COBSUBX 

; COBSUBX 
ERROR1 . COBSUBX 
ERROR2. COBSUBX 
ERROR3. COBSUBX 
ETC. COBSUBX 
COBSUBX 

‘ COBSUBX 

CALL ’'COBREENT’ USING LOGPUT-POINTER-88, Pl. COBSUBX 
GOBACK. COBSUBX 


Figure D-4. Reentrant Subroutine Sample Coding. 
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Appendix E 
NONREENTRANT SUBSYSTEMS 
E.1 INTRODUCTION 


Nonreentrant OS/VS or ANS COBOL subsystems do not use a Dynamic 
Working Storage area in the Linkage Section. Instead, as illustrated in 
Figure E-1, both constant and variable data areas are defined in the 
Working-Storage Section. Therefore, nonreentrant subsystems are always 
Single-threaded; each input message is processed to completion and the 
subsystem returns to the Monitor before a new message can be processed 
by the subsystem. On the SYCTTBL macro for the subsystem, MNCL=1 and 
LANG=COB must be coded. For FORTRAN, code LANG=FORT. The GET (and 
FREE) parameters are not coded. Obviously, if messages might be input 
to the subsystem from more than one terminal concurrently, response time 
for each message queued after the first will be increasingly slower. 
Thus, it is recommended that COBOL subsystems always be coded as 
reentrant. Loading above the 16M line and VS COBOL II are not supported 
for non-reentrant programs. 


To call a user subroutine (must be coded as nonreentrant if COBOL) 


or an Intercomm service routine, COBREENT is not used. Instead, the 
subsystem calls the routine directly as illustrated by the COBPUT call 
in the sample subsystem in Figure E-2. For calls to File Handler 


routines, use only the routine name such as GET or WRITE; omit the FH- 
prefix. For the Dynamic File Allocation, Page and DDQ special features, 


see the respective manuals for routine names. User subroutines must be 
resident in the Intercomm load module or in the same overlay segment as 
the subsystem; they are not defined in REENTSBS. The Intercomm 


environment for a nonreentrant subsystem is illustrated in Figure E-3. 


E.2 CONSIDERATIONS FOR USING CONVERSE 


Control of a conversational program environment is accomplished by 
Intercomm in different ways depending on the subsystem’s residency: 


@® Resident 


A copy of the subsystem load module is rolled out to a disk 
data set during "CONVERSE time", that is, the time between the 
call to CONVERSE and scheduling the next message from the same 
terminal. Subsequently, the load module is rolled in to 
process that next message. 


@ Overlay Loaded 
Same as above, except the loaded overlay region may contain 


other subsystems to process other messages during (and after) 
"CONVERSE time." 


@ Dynamically Loaded 


Same as above, except the subsystem remains in core until all 
"conversations in progress" have terminated. 


247 


Appendix E Non-reentrant Subsystems 


The CONVERSE "rollout" file is a BDAM data set preformatted via the 
Intercomm utility CREATEGF (see Operating Reference Manual). The record 
format is fixed unblocked, with a block size of 1024. For on-line 
execution, a DD statement must be added to the Intercomm execution JCL, 
as follows: 


//CONVSFIL DD DSN=INT.CONVSFIL, DISP=OLD , DCB=(DSORG=DA , OPTCD=R) 


IDENTIFICATION DIVISION. 

PROGRAM-ID. EXAMPLE]. 

REMARKS. THIS IS A NON-REENTRANT INTERCOMM COBOL SUBSYSTEM PROGRAM. 
ENVIRONMENT DIVISION. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

77 CONSTANT -ITEMS PICTURE X(8) VALUE ’CONSTANT’. 


. THESE ARE NEVER-CHANGING LITERAL VALUES... 


INDEPENDENT -ITEMS PICTURE S9(6)V99 VALUE ZERO COMP-3. 


. THESE ARE ACCUMULATORS, SAVE AREAS, FLAGS, ETC... 
RETURN - VALUE PIC 99 VALUE 0. 


OUTPUT -MESSAGE-AREA PICTURE X(...). 
FILE-RECORD-AREA PICTURE X(....). 


. ADDITIONAL AREAS... 


LINKAGE SECTION. 
Ol INPUT-MESSAGE-AREA COPY ICOMINMNG. 
O02 INPUT-TEXT PICTURE X(...). 
Ol SPA PICTURE X. 
Ol SCT PICTURE X. 
01 INTERCOMM-RETURN-CODE PICTURE S9(8) COMP. 


PROCEDURE DIVISION USING INPUT-MESSAGE-AREA,SPA,SCT, ° 
INTERCOMM-RETURN-CODE. 


PROGRAM PROCESSING LOGIC... 
...GO TO INTERCOMM. 
INTERCOMM. 


MOVE RETURN-VALUE TO INTERCOMM-RETURN-CODE. 
GOBACK. 


Figure E-1l. Nonreentrant COBOL Subsystem Structure 
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Appendix E 


Non-reentrant 


PP $740-CBl RELEASE 2.4 18m CS/v¥S COBOL 


0000! cocc1o 
000C< C00020 
00003 000030 
a00C4 Ccoc40 
00005 ¢00050 
ococé coo0éo0 
000c? 000070 
oocce ccooeo 
ooocs oocc9o 
cccic coc100 
0001) €00110 
ocol.é 000120 
00013 000130 


S 

oO 

Q 

Ne 

~] 
ANAANANMAAMANAANAAAIANANAANNANANM 


00042 ccc150 
00043 00016£0 
00044 00017C 
00045 C00180 
0004é coo250 


oO 

an 

ie 

wn 

io) 
ANMAMAANAA 


¢ Figure E-2. 


10 DOIVISICN. 

PROGRAP@-10. ECHCASG. 

REMARKS. THIS NON=-REEATRANT SUBSYSTEM ECHOS AN INPLT MESSAGE 
CONTAINING UP TC $500 CrFARACTERS OF TEXT BACK TO THE 
ORIGINATING TERMINAL. USING THE OUTPUT UTILITY, 

IT CCPIES THE IANFUT TO THE OUTPUT PESSAGE AREA 
FPOOIFIES THE MESSAGE HEADER, APPENECS THE AUTHOR'S NAME, 
AND PESSSGE ENCIAG CrARACTER, BEFORE CALLING COBPUT TO 
CUEUE THE MESSAGE FOR TRE INPUT TERMINAL. 

ENVIROQNMEKT OIVISICN. 

OaTA DIVISION. 

WORKING=-STORAGE SECTICN. 

Ol wEX=COOES CCPY ICCMrEXC. 

Ol MmEX-CODES. 

05 HEXx-00 PIC xX VALLE * °, 

05 cCCDE-c0 RECEFINES HEx=CO PIC xX. 
C5 WMEX-15 PIC x VALUE * °, 

05 CCDE-21 REDEFINES HEx-15 PIC X. 
C5 MEX-37 PIC X VALUE * *, 

05 CCDE-55 REDEFINES HEx-37 PIC xX. 
C5 HEX=-5C PIC x VALLE “E*, 

05 Cdace-ec RECEFINES HEX=-50 PIC xX. 
OS WEX-§51 PIC x VALUE ° °, 

05 CCDE-8l REOEFINES HEX=-5] PIC xX. 
05 HEX=52 PIC x VALUE * *, 

Q5 CCDE=62 REDEFINES HEX=52 PIC X. 
C5 HEX=53 PIC xX VALUE * °, 

O£ cCcCOE-82 RECEFINES WHEX=-53 PIC X. 
05 HEX-54 PIC xX VALLE * °, 

C5 CCDE-@« RECEFINES HEX-54 PIC xX. 
05 HEX=55 PIC x vVaLUEe " °, 

05 CCDE-85 REDEFINES HEx=55 PIC xX. 
05 HExX-56é PIC X VWALLE * °, 

05 CCDE-86 REDEFINES HEx-56 PIC xX. 
O05 HExX-57 PIC X VALLE * °. 

C5 CODE-&@? REDEFINES HExX-57 PIC X. 
OS MEX-72 PIC x VWALUE ° °, 

Of CCDE-$114 REDEFINES HExX-72 PIC x. 
05 HEX-FF PIC xX VALUE * °, 

0S CCDE-255 REDEFINES HEX-FF PIC Xx. 


01 AL THORS-NAPE, 


02 OUT-N4ME PIC x10) VALUE ° T.ELCUERA’, 
O2 OLT-MSG REDEFINES OLT<NAME, 
04 NAME-CHAR PIC x OCCURS 10 TIPES. 
O1 wCRK-SPACE COPY ICCHChS. 


Ol wWCRK=-SPACE. 
O2 OQUTPUT-MESSACE, 
O04 CrESSG=HCR. 


O06 OFSGH=-LENCGTH PIC $9999 COMP, 
O& OFSGH-CPR PIC X. 
Oe OFM SGM-RSCr PIC Xx. 
Oe OFsGrearsec PIC x. 


Subsystems 


00000010 
00000020 
00000030 
00000040 
00000050 
0000000 
00000070 
00000080 
00000090 
000001C0 
00000110 
00000120 
00000130 
00000100 
00000200 
o000003CO0 
00000400 
000005CO 
o0o000ce00 
c0000700 
00000800 
00000900 
000010C0 
000011C0 
00001200 
00001300 
000014C0 
00001500 
00001600 
9000: 700 
00001800 
000019¢0 
000020c0 
00002100 
00002200 
000023CO0 
00002350 
00002352 
00002400 
00002500 


00000150 
00000160 
00000170 
00000180 
00000181 
cooo0lcc 
00000200 
00000300 
000004CO 
0000c¢500 
00000600 
0000C700 
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04 


OMSGH-SSC 
OPSGH-MAN 
OPSGH-OATE. 

06 OMSGr-YR 

Os OFSGH-PERICD 
08 OMSGrR-JULIAN-DAY 
OF SGH-TIME. 

O08 OFSCr-HH 

08 OFSGH-AA 

oe OMSGH-SS 

08 OMSGr-TH 
OrsGH-TID. 

OB OFRSGre-TI1 
08 OMSGhH-TJ 2-3 
08 OPSGH-TI4=-5 
Or SGH-CChK 
OFSGH=-FLCS 
OMSGH-BPA 
OrFPSGH-SSCH 
OFSGr-UsR 

OF SGH~aCDR 

Or SGH-LOG 
OMSGH=-BLK 

OF SGH-vVPF |] 


CUTPUT-MESSAGE-TEXT 


C2 CCBPUT-RETURN-CODE 


QUEVET 


INPUT-MESSACE CCPY ICOMIAMG. 
INPUT=MESSAGE. 
O04 MESSG-HOR. 


ASGHK-LENGTH 
@#SGr-CPR 
ASGH-RSCr 
BSGH-RSC 
MSGK-SSC 
PSGH-FPFR 
PSGH-OATE. 

Oe®& MSGK-YR 

08 MSGr-PERTIOO 
Ce MSGr-JULITAN-CAY 
WPSCK=TIPE. 

Q0& MSGr-FH 

O& MSGH-PP 

Oe mSGK-S§5 

O&@ MSGr-TH 
PS$SGr-TIC. 

0& P-»SGr-TI) 
O08 MmSGr-T12=3 
O08 MSGR-Tl]4=§ 
MSGH-COA 
MSGH=FLGS 
MSGK-BAN 
MSGH-SSCr 


2 
00054 C 0¢ 
6cos5 ¢ 06 
ocose ¢ 0¢é 
ocos?7 C¢ 
ocoseé ¢ 
00059 C 
occec Cc 0€ 
occol ¢ 
00062 C 
ocoé#? C 
ccoe4 C 
ooces C¢ 06 
occée C 
ocoe; C¢ 
ocoée# C 
ccces C Ot 
ooo7c ¢ 06 
occ71 Cc 06 
cco7v<z C 06 
oco73 C ot 
C0074 C Ot 
cco75 ¢ 06 
ooo7e C 0€é 
ccc77 C 0¢ 
0007S coc2é0 
cccac cc0270 
ocoe} C00280 8&8 
OcOs<s 000290 02 I 
00083 c00300 O02 J 
00084 C00190 LIAKAGE SECTICN. 
occas c00g200 Ol 
cccaéeé C ol 
oocs7 C 
ceccse C 06 
00089 ¢ Ot 
ocecgc ¢ Ot 
ooc9l1 ¢ 0€ 
00092 C Ot 
occs2 ¢ 06 
cces« C 0¢ 
OOOS£ C 
ocogée C 
occs? ¢ 
ocoge ¢ 0¢€ 
ececss C¢ 
ooloc ¢ 
00101 C 
oclidz C 
ocic3 ¢€ 0€ 
oo1c4 C 
CClde C€ 
oo1ce C 
cclic?y C Cé 
ocice ¢ 06 
ccics C o¢€ 
oolic ¢ O¢ 


Figure E-2. 
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PIC 
PIC 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC x 
PIc 9 
VALUE 
Pic $ 
PIC 5 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


Non-reentrant Subsystems 


Xe coo0008s00 
XXX 00000900 
00001000 

99. 00001100 
Ke 00001200 
999. 00001300 
000014cO0 

99. 000015CO 
99. 00001000 
99. 000017CO 
99. 00001800 
00001900 

Ke 00002006 
XX . 00002100 
99. 00002200 
$9999 COMP. 000023C0 
X(2). 00002400 
XO3). 00002450 
Xe 00002500 
Xe 00002600 
XXe 00002700 
Xe 00002750 
Mc 00002800 
Xe 000029C0 
OCCuRS 510 TIMES.00000182 

9. 00000183 
ZERO. 00000184 
944) COMP. 00000185 
9(3) COnmP. 00000186 
00000190 

00000200 

000001C0 

00000200 

$9999 COMP. 0000C3CO 
Xs 00000400 
Xe 00000500 
Xe 00000600 
Xe 0c000700 
XXX. 000008CC 
00000900 

99. 00001000 
Xe 00001100 
999. 00C012C0 
00001300 

99. 000014CC 
99. co001sco 
99. c0001600 
99. 00001700 
00001800 

Xs c0001900 
XXe 000G2CCO 
99. 000021C0 
$5999 COMP. 000022C0 
X(2). 000023CC 
x03), 00002350 
Xe 00002400 
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MSGr=-USR 00002500 
PSGH-AaDDR 00002600 
MSGr=-LOG 00002700 
ASGH-BLK C0002750 
MSGR-VAI C000 2800 


€00210 04 INPLT“MESSAGE-TEXT PIC x OCCURS 500 TIMES. 00000210 
CCC220 OL SYSTEM=PARASPE TER-TABLE PIC X. 0000Cc220 
000230 01 SUBSYSTEM-CCNTROL-TASBLE PIC X,. 00000230 
COO24C C1 INTERCOMM-RET-CCDE PIC $9(7) COMPUTATION&L.00000240 
000310 PROCEDURE DIVISICA USING 00000310 
€c0220 INPLT=PESS AGE 00000320 
000336 SYSTEM=PARAMETER-TABLE 00000330 
C€00340 SUBS YSTEP=CONTROL-TABLE 00000340 
00035¢ INTERCOMM-RET-CODE. 00000350 
000370 MCVE PESSG-HOR TC CMESSG-HER, 00000370 
000380 MCVE OMSGH-8SCh TC OMSGH-SSCH. 00000380 
00039¢ MCVE OFSGR-RSC TC OPSGH-SSC. 00000390 
000400 MOVE LCWweVALUES TC OPSGR-RSCr, 00000«C0 
C00410 PCVE LOW-VALUES TC OMSGrH-RSC. CC000410 
000420 MOVE WEX=-57 TC OFMSGr-VAI. ¢C000420 
000430 PERFORM MOVE—A-CHARSCTER VARYING ] FROM #1 BY #} 00000430 
€C0440 UNTIL [I IS EQUAL TO MSGR-LENGTH = 42, 06000440 
000450 PERFORM NAME~PCVE VARYIAG J FROM +1 BY ©1 UNTIL J > 010. 00000450 
C€c0460 MOVE FEX-37 TO OUTPUT<MESSACE-TEXT (1). 00000+¢0 
000470 COMPUTE OPSGHe-LENCTH = 1 ¢ 42. 06000470 
0004280 CALL *COBPUT® USIKG OUTPUT =MESSAGE 00000480 
coc510 CCBPUT-RETURN-CODE. 00000510 
C€00520 IF NOT QUEUVED c0000520 
00053¢ PCVE COBPUT-RETURN-CODE TO INTERCOMM-RET=-CODE 00000530 
Ccc540 ELSE 0000C540 
eccs50 MOVE ZEROS TC INTERCOMP-RET=-CODE. 0000C550 
000céC GOBACK. 000005¢0 
CCO570 SUBROL TINE SECTION, 00c0cs70 
CCO58O PCYE-s—-CHSRACTER., co0co00580 
0005S0 MOVE INPUT=PESSAGE-TEXT (1) TO QUTPUT-MESSAGE“TEXT (1). 00000590 
COO¢CO0 NAPE-PCVE. 00000600 
000610 MOVE RAPE-CHAR (J) TO OLTPUT~MESSAGE-TEXT (1). 00000610 
eccé20 COMPUTE I = I ¢« 1, 00000620 


Figure E-2. Echo Message Example; Nonreentrant COBOL (Page 3 of 3) 
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SYSTEM 
INTERCOMM PARAMETER 
SYSTEM AREA 


SUBSYSTEM 
CONTROL 


LANGUAGE > 
INTERFACE B 


SUBSYSTEMS 
SU 
COBOL SUBSYSTEM AA 


LINKAGE WORKING-STORAGE 
POINTERS 


@—(1) IN-MSG CONSTANT ITEMS 
G—(22) SPA 


G3) sct | INDEPENDENT ITEMS 
l@—(4) RTCOD 
OUTPUT MSG 


MVS SUBPOOLS 
INTERCOMM DYNAMIC POOL STORAGE 


AA RET-COD 


ACCESS METHODS 
AA INPUT 
MESSAGE 


Figure E-3. Nonreentrant Application Program Environment 
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Page 
Abend 519 45 
Abend 10nn 46.3 
ACCESS function (DFA) 110 
ADABAS data base 15,52 
ALLOCATE function (DFA) 110 
ALTER (COBOL verb) 45 
Alternate Format Table (PMIALTRP) 
240,241 
Alternate Index (VSAM) 71 
Alternate Path processing (VSAM) 71 
Alternate terminal processing 75 
AMODE linkedit parameter45,46.1,225,227 
AMP parameter (VSAM JCL) 67,74 


Application programs. See Subsystems. 
Assembler Language 16,34,105,110.1 


AUTOLOK feature 94 

Back End--defined 11 

Back End Device Table. See Device 
Table. 


Back End Station Table. See 
Station Table. 


Backout-on-the-Fly 6,34 
Batch execution 1,3,30 
Batch Report Table (REPTAPE) 240 , 241 
BCGROUP macro 239 
BDAM access method 
--COBOL verbs 51 
--DCB parameters 64 
--DD statement parameters 52 
--and exclusive control 57 
--option codes 65 
--and File Handler Parameters 54 
--processing 64 
~-return codes 66 
--sample inquiry subsystem 111 
--service routines 51,64 


BDW. See Block Descriptor Word. 


Binary table search 30,110.1 
BISAM access method 
--COBOL verbs 51 
--DCB parameters 62 
--DD statement parameters 52 
--and exclusive control 57 
--and ISAM/VSAM compatibility 74 
--processing 62 
--return codes 63 
--service routines 51,62 
BLDL parameter (SUBMODS macro) 46 
BLDL parameter (SYCTTBL macro) 46 
BLHOT module 29 
BLINE macro 239 


Block Descriptor Word 61 


Page 


20,75,102,103,107 
239,241 


Broadcast Group 
Broadcast Table (PMIBROAD) 

BROADCST. See Broadcast Table. 
BSAM access method 51-52,57,60-61 


BTAM 11 
--simulator 111,129-131 
--switched devices 21 

BTAMSCTS. See Front End Queue Table. 

BTAMSIM module 131 

BTERM macro 239 

BTSAMP table 239 

BTVERB macro 
--and BTVRBTB 17,18 
--and editing 35 
--and priority 21 
--and sample subsystem 130,132,168 
--and subsystem codes 18 
--table summary 239 


BIVRBTB. See Front End Verb Table. 
Cancelled messages 34,46.4 
Change/Display Utility 
--described 16 
--and formatting required, 


fixed text messages 76-77,167 
--and message switching 41 
--and Output Utility 76-77 
--and sample subsystem 167 
--tables used by 241 

Change table (CHNGTB) 167,180,239 ,241 
Checkpointing 6,28 
CHNGTB. See Change Table. 

CICS (IBM) 11 
Closing files 51.5297 
COBLOGCH copy member 46.2,111 


COBPUT module 


--calls to 39,97,99,100,101,247 
--error recovery 98 
--function 39 
--and message flow using EDIT 

and OUTPUT 24 
--and message queuing 97,99-101 
--and message switching 35,41,99-101 
--and Output Utility 76 
--return codes 98 
--and sample inquiry 

subsystem 111,169-178 
--and subsystem logic using 

EDIT and OUTPUT 37 

COBREENT module 

--and Amode switching 38 ,46.3 
--and COBSTORF 100 
--and CONVERSE 90 


Page 
--described 95 
--and DWSSNAP 46.4 
--and exclusive control 59 
--and FECMDDQ 107 
--and FECMFDBK 108 
--and FECMRLSE 109 
--and FESEND 103 
--and File Handler 54 
--function 38-39,95 
--and GET (QISAM) 62 
--and GET (QSAM) 60 
--and GETV (VSAM) 67-68 
--and INTSORTC 110 
--and LOGPUT 104 
--and MSGCOL 99 
--and passed parameters 39,46,46.3,95 
--and PUT (QISAM) 62 
--and PUT (QSAM) 60 
--and PUTV (VSAM) 67-68 
--and READ (BDAM) 64 
--and READ (BISAM) 62 
--and READ (BSAM) 60 
--and reentrant coding 45,105,243 
--and RELEASE 56-57 
--routine pointers 
(REENTSBS) 96-97 
--and sample subsystem 11il 
--and save areas38 ,46.3,95,105,243,244 
--and SELECT 56 
--and subroutine calls 105 
--and VS COBOL II 38 ,46.2,46.3,95 
--and WRITE (BDAM) 64 
--and WRITE (BISAM) 62 
--and WRITE (BSAM) 60 
--and XA/ESA 46 
COBSTORF module 100-101 
COBUPC procedure 225 
COBUPCL procedure 225 
COB2PC procedure 226 
COB2PCL procedure 227 


Commands (Intercomm) 16,46.3,93-94,102 
Company/Report/Terminal 


Table (PMIRPTAB) 240 ,241 
COMPUTE (COBOL verb) 45 
Constants, defining 41 

--for VS COBOL II 46.2 

--and XA/ESA 46 
Conversational subsystem. See 

Subsystems, conversational. 
Conversational time-out 

(Front End) and FESEND 103 
CONVERSE 

--automatic time-out 90,92 
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Page 


--calling format 90 
--and conversation implementation 
options 81 
--described 88 
--and nonreentrant 
subsystems 247-248 
--return codes 92 
--roll-out file 247-248 
--subsystem logic using 89-91 
--and VS COBOL II 46.3,88 
--and XA/ESA 88 
CONVSFIL data set 248 
COPRE utility (MMU) 46.2 
CREATEGF utility 64,248 
CREATSIM utility 129-130 
--JCL for 134-135 


CRT Page Facility. See Page Facility. 


Data Base interface 7,15,19,52,105,110 


Data Set Control Table 17 
Data Set Name Sharing (VSAM) 67,71 
Data strings 15,84,86 
Dataspeed 40 terminal 21,49 
DBINT function 110 


DBMS support 15 ,24,34,52,110 
DDQ. See Dynamic Data Queuing. 
Debugging program problems 

See also DWSSNAP Facility. 
DESOOO data set 167 ,239 
Device control characters 
DEVICE macro 
Device Table (PMIDEVTB) 


129 


240 
17,102 ,240,241 


DFA. See Dynamic File Allocation. 
Dispatcher 12 ,105,110.1 
DISPLAY (COBOL verb) 

--and VS COBOL I1' 217 
DIVIDE (COBOL verb) 45 
DL/I data base 15,52 
DMAP (of COBOL program) 45 


DSCT. See Data Set Control Table. 
DSN (FAR) option. 
See Data Set Name Sharing. 


Dumps 129 

DWS. See Dynamic-Work-Space. 

DWSCHK parameter (SPALIST macro) 46 

DWSCHK parameter (SYCTTBL macro) 46 

DWSSNAP Facility 
--coding format 46.5 
--described 46.4 
--examples 46.5 
--parameters 46.4 
--and user snaps 110.1 
--and VS COBOL II 46.3 


C 


her 


C 


Page 
Dynamic Data Queuing 
--and conversational subsystem 
81,86-87 
--described 15 
--and Front End Data Queuing 107 
--and Message Mapping Utilities 47 


--and segmented input messages 22,30 


--subroutine entry names 110 
--types of queues 86 
--use of 30, 86-87 
Dynamic File Allocation 15,110 
Dynamic file backout 6,34 
Dynamic linkedit 30,46.3 


Dynamic loaded programs 18 , 38,131,168 
--above the 16M line 


38-39 ,45,46.1,46.3,95,105 


--and CONVERSE 88 ,92 
--and dynamic linkedit 30 
--linkedit of 225,227 
--and VS COBOL II 46.1,46.3 
--and XA/ESA 45-46 
Dynamic Working Storage. See 
Dynamic-Work-Space. 
Dynamic-Work-Space. 
--and Assembler Language 
Subroutines 105 
--and COBOL 
subroutines 46.1,46.3,105-106,243 
--and COBPUT 97 
--and COBSTORF 100 
--and CONVERSE 89 
--and DWS checking 46,46.3,100 


--and DWSSNAP facility 46.3,46.4-46.5 


--example 44 
--and File Handler 53 
--and FREE parameter (SYCTTBL 

macro) 19,100,101 
--and GET parameter (SUBMODS 

macro) 106 
--and GET parameter (SYCTTBL 

macro) 18 ,44.3,100,101 
--and intersubsystem queuing97 ,100-101 


--and Message Collection 100-101 


--and Message Mapping Utilities 47 
--and message switching 99-101 
--and nonreentrant subsystems 247 
--and output message format 41 
--and parameters to COBREENT 39,46,95 


32 
18 ,46,46.3,130 


--prefix to 
--protection option 
--and reentrant coding 
conventions 
--snaps of 


16,39,45 
46.3,46.4-46.5,110.1 


--and subroutine interface 
--and subsystem structure 
--and VS COBOL II 

DYNLLOAD module 


ECHOMSG sample subsystem 

ECT. See Edit Control Table. 

EDIT. See Edit Utility. 

Edit Control Table (PMIVERBS) 
--associated components 
--described 
--macros 
--and message flow using EDIT 

and OUTPUT 
--and required fields 
--and subsystem testing 
--and USRVERBS 

EDIT parameter (BTVERB macro) 

Edit subroutines 

Edit Utility 
--concepts 
--and CONVERSE 
--function 
--message flow using 
--and message switching 
--and PREPROG 
--processing results 
--and sample subsystem 
--subsystem logic using 
--and subsystem testing 
--tables used by 
--using 
--and verb message 

identifier (MSGHVMI) 3 

Entry sequenced data sets (VSAM) 

54,56,6 


Lids 


--loading of 
Error messages 
--and calls to service routines 
--and conversational subsystems 
--and debugging 
--and Dynamic Working Storage 
protection option 
--and Edit Utility 
ESA (IBM). See XA/ESA. 
ESDS. See Entry sequenced data 
ESS. 
Exclusive Control 


--and File Handler Control Word 


--for non-VSAM files 
--processing (file/record) 
--releasing (file/record) 
--and resource control 
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14,49 
91 
14 
24-25 
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167,180 
17,241 
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79 
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46 
50 
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--and Store/Fetch 85 

--for VSAM files 70 

EXEC JCL statement parameter 131,168 
EXTDSCT. See External DSCT. 

Extended Security System 15,29,110.1 


EXTERM macro 110.1 
External DSCT 53-54,56-57,59,68 


FAR. See File Attribute Record. 


FD (File Description) 45,52 
FDETL macro 239 
FDHDR macro 239 
FDR. See File Description Records. 

FECM. 102 


See Front End Control Messages. 

FECMDDQ. See Front End Data 
Queuing. 

FECMFDBK. See Front End Feedback 
Messages. 

FECMRLSE. See Front End Queue 
Release. 


Feedback codes (VSAM) 70,73 
FENETWRK table 136,239 
FESEND 
--described 102-103 
--and conversational time-out 103 
--and CONVERSE time-out message 90 
--and FESENDC entry point 94,102-103 
--and Front End Control 
Messages 106 
--and Front End Feedback 
Messages 108 
--and Front End Queue 
Release 103,108 
--function 14,35 
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and OUTPUT 24-25 
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--and message header altering 
21,40,41,42 
--and Message Mapping 
Utilities 22-23 ,47 
--and MSGHRSC and MSGHRSCH 35,40 
--option codes 103 
--and Output Utility 24-25,38,75 
--return codes 103 
--and subsystem coding 35,40 
--and subsystem logic using 
EDIT and OUTPUT 38 
--and subsystem logic using MMU 36 
--and terminal messages 21,40,41 
--and VTAM 103,108 
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FESENDC entry point 40 ,94,102-103,106 
FETCH function 84-85 
FHCW. See File Handler Control Word. 
File access. See File Handler. 


FILE command 56,57 
File Attribute 
Record 17,51,56,61,62,67,71,241 
File Description Records 76,167,239,241 
--illustrated 182 
File Descriptions (FDs) and 
COBOL 45,52 
File Handler 
--access methods supported 52 
--and batch execution 30 
--and closing a file 52557 
--control areas 53 
--and CONVERSE 91 
--described 12 ,51-52 
--and direct access files 64-66 
--error checking 55 
--exclusive control 12 
--non-VSAM files 57-59 
--VSAM files 59,70 
--general concepts 51-52 
--and indexed sequential files 62-63 
--and ISAM/VSAM compatibility 74 
--and message flow using EDIT 
and OUTPUT 24-25 
--and message flow using MMU 22-23 
--and opening a file 12:,51.352 57 
--parameters 53-54 
--return codes 53,55-56,59-60,63, 66,73 
--and sample inquiry subsystem 111 
--SELECT and RELEASE functions 56 
--and sequential access 
files 60-61 
--service routines 51,54-55,247 
--subsystem processing 52-53 
--tables used by 239,241 
--and TCTV time-out 19 
--and undefined record format 61 
--and variable length records 61 
--and VSAM 51,54,56-59,67-73 
--and XA/ESA 46,54,56,57 
File Handler Control Word 
--and automatic error checking 55 
--and closing a file 57 
--described 53-54 
--and direct access files 64-65 
--and exclusive control 57 
--and indexed sequential files 62 
--and ISAM/VSAM compatibility 74 
--return codes 55 
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--and undefined records 61 
--and VSAM files 67-73 
File Handler Data Set Control 
Table 17,239 
File I/O verbs (COBOL) 46.2,51 
File Recovery feature 6,51,104 
File Table (PMIFILET) 240,241 
Fine Tuner Commands 240 
Flushed messages 21,29 
Format Description Record. 
See File Description Records. 
FORTRAN 31,247 


FREE parameter 
(SYCTTBL macro) 
Front End 
--and conversational processing 81,103 


19 ,46,100-101,247 


--defined 11 
--and TP queuing interface 12 
Front End Control Messages 106-109 
--and FESEND 102 
--return codes 106 
Front End Data Queuing 30,107,108 
Front End Feedback Messages 107-108 
Front End Network Configuration 
Table 17,239,241 
Front End Queue Release 103 ,108-109 
Front End Queue Table (BTAMSCTS) 
239,241 
Front End Verb Table (BTVRBTB) 
--and AUTOLOK 94 
--creation of 17,239,241 
--and CONVERSE 90-91 
--and editing 37,49 
--function 17-18 
--and message processing (VMI) 35 
--and USRBTVRB 18 ,130,132,168 
FIUN command 46.3 
GENFTBLE macro 240 
GET parameter (SUBMODS macro) 
46 ,46.1,106 
GET parameter (SYCTTBL macro) 
--described 18 
--and Dynamic Working Storage 
protection option 46 
--and Message Collection 100-101 
--and subroutines 46.1,243 


--and subsystem structure 31,46.1,247 
GET service routine 


--calling format 60,62 
--and exclusive control 57-59 
--function 51 
--and indexed sequential files 62 
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--and ISAM/VSAM compatibilty 70,74 
--and sequential access 
files 60-61 
--and subsystem processing 52 
GETDATE macro 110.1 
GETV service routine 
--calling format 67-68,72 
--and exclusive control 70 
--and FHCW reason codes 70 
--function 51 
--and subsystem processing 52 
--and VSAM files 67-68 
--and VSAM processing options 69-71 


GOBACK (COBOL verb) 36,37,40,45,46.1,52 


HEXCON macro 110.1 
HPRTY parameter (BIVERB macro) 21 
IAM access method 52,54 
IBM 2740 Terminal 21 
IBM 3270 Terminals 11,21,49,108,131 

--and simulation testing 130 


ICOMDWS copy 
member 

ICOMHEXC copy member 

ICOMINMG copy 
member 


40,43,111,115,234-236 
40,42,169,230 


40,42,111,115, 231-233 


ICOMLINK macro 136,185,215 
ICOMSBS copy member 
--described 39 
--illustrated 42,114 
--listing of 237-238 
--and sample inquiry subsystem 111 
--and service routines 54,110,110.1 
--and user subroutines 105 
--and XA/ESA 46 
IDMS data base L552 
IGZEBST (IBM) module 46.3 
IGZOnnI error message (IBM) 46.3 


IJKDELAY service routine 30,110.1 


IJKPRINT service routine 30 
Indicative dumps 129 
INITLU6 function 11,96,110,237,238 
INTDEQ macro 110.1 
INTENQ macro 110.1 
INTERCOMM environment 9-15 
INTERCOMM tables 17 ,239-241 
--REENTSBS subroutines table 
39 ,95-97,240 
INTERLOG file 26-29 ,104,161-166,191-196 
--JCL for 138 
INTFETCH function 110 
INTPOST macro 110.1 


Page 


INTSCT table 
--and USRSCTS 


18,130,167 ,240,241 
18 ,130,132,167,180 


INTSORT Facility 109-110 
--return codes 110 
INTSORTC entry point 109 , 237,238 
INTSPA table 82-83 240,241 
INTSTORE function 110 
INTTCB macro 91 
INTTIME macro 110.1 
INTUNSTO function 110 
INTWAIT macro 110.1 
ISAM (see also BISAM and QISAM) 
--access by File Handler 52 
--File Handler processing 62 
--File Handler return codes 63 
--File Handler service routine 
parameters 54 
--and VSAM 67,70,73,74 
ITCBPMSS field in ITCB 91 
ITEM macro 240 
IXFCHKPT module 28 
IXFDSCTA macro 239 


IXFDSCT1/2/3/n table 239,241 


IXFLOG (File Recovery logging) 28 
JCL 
--COBOL procedures 225-227 
--CREATSIM utility 134-135 
--DD statement for File 
Handler 12 ,51-52 
--for direct access files 64-66 
--for indexed sequential files 62 
--for ISAM/VSAM compatibility 74 
--sample Simulation Mode 136-138 
--sample Test Mode 185-187 
--sample VS COBOL II test 215-217 
--for VSAM files 67 
JOBCAT DD statement (VSAM) 131 
Journaling. See Logging. 
KEYTABLE (Change/Display) 239,241 


Key sequenced data sets (VSAM) 54,67,71 
KEYCREAT utility 64 
KSDS. See Key sequenced data sets. 


LANG parameter (SYCTTBL macro) 
18 ,46,46.3,247 


LAYOUT macro 110.1 
LCOMP macro 239 
LET parameter (linkedit) 46.3,225,227 
LIBECOB procedure 225 
LIBECOBL procedure 225 
LIBELINK procedure 132,180 
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LIMCT parameter (JCL) 52,64 
LINE macro 240 
Line control 6-7 
LINEGRP macro 239 
Linkage Section 

--and DWS snaps 46.4-46.5 


--example 
32,42 ,115,127,171,205,245,246,248 
--and File Handler control 


areas 53 
--and ICOMINMG and ICOMDWS 40 
--order of Intercomm parameters 31 
--and output message format 41 
--and reentrant coding 

conventions 45 
--and System Parameter List 83,99 
Linkedit 
130 ,136-137,168 ,185-186 ,225,227 
--dynamic 30,46.3 


--and loading above the 16M line 
45,46.1,225,227 
137,186,216 
46,105 
30,46.3 


LKEDT procedure 
LNAME parameter (SUBMODS macro) 
LOAD command 
Loading above the 16M line 
--requirements for. See XA/ESA. 
LOADNAM parameter (SYCTTBL macro) 18,46 
LOCK command 93-94 
Log Analysis utility 21,26 


Log codes 26-29 ,46.4,104 
Logging. See INTERLOG file, LOGPUT. 
LOGCHARS table 241 
LOGPROC module 28 
LOGPRINT utility 21,26 
--sample JCL for 138 


--sample printout 
161-166 ,191-196 , 218-223 
LOGPUT module 


--calling format 104 
--function 14,26 
--and INTERLOG entries 26,28-29 
--and user entries to 
INTERLOG 27,104 
LOGTROUT table 104 
LSR (pools) option (VSAM) 67,71 
LU6.2 support 11,15,28,110 
LUNIT macro 236 
Macros (Intercomm) 
--for features 110.1 
--for tables 239-240 
MAPCLR function 110 


MAPEND function 34,36,48,108 ,110 


ad 
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MAPFREE function 110 
MAPIN function 36,48,106,110 
MAPOUT function 36 ,48,110 
MAPURGE function 110 
MERGE (COBOL verb) 46.2 
Message Collection 
--calling format 99 
--and COBPUT 39 ,97-101 
--function 14 
--and INTERLOG 28-29 
--log codes 27 
--and message switching 99-101 
--and MSGHMMN 20 
--and MSGHUSR 21 
--and partial message freeing 
99,100-101 
--return codes 34,99-100 
Message ending character 40 
Message flow 
--using Edit and Output 24-25 
--using MMU 22-23 
Message header 
--changing 35 
--and CONVERSE 90 
--COPY members for 231-236 
--described 19-21 
--and Message Collection 97,99 
--and message flow using EDIT 
and OUTPUT 24-25 
--and message flow using MMU 22-23 
--and message processing logic 35 
--and message routing 18 
--and output messages S077 
--specifications for the Output 
Utility 77 
--and subsystem structure 31,39-40 
--and Test Mode input 183 
--and user log entries 104 
Message Mapping Utilities 
--and Assembler Language 
subroutines 105 
--described 14,47 
--and Front End Control 
Messages 106-109 
--function 14 
--and log codes 27 
--maps for sample subsystem 133 
--message flow using 22-23 
--and messages to Front End 102 
--and MSGHQPR 22 
--and MSGHVMI 40 
--processing 22-23,30,47-48 
--and sample inquiry 
subsystem 111,130 
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--service routines 110 
--and subsystem logic 35-36,48 
--and subsystem testing 129,130,131 
--and symbolic maps 46.2,47 
--tables used by 17,241 
--and VS COBOL II 46.2 
Message switching 35,41,99,100 
MMU. See Message Mapping Utilities. 
MMUC command 130,134,141 
MMUVTBL table 241 


MNCL parameter (SYCTTBL 


macro) 19,46.2,46.3,131,168, 247 
MODCNTRL macro 105 
Monitor control functions 7 
MONOVLY module 46.3 
MRINTER module 28 
MROTPUT module 34 
MRQMNGR module 28-29 
MSGAC module 29 
MSGCOL. See Message Collection. 
MSGHBLK field 20 
MSGHBMN field 20,26,183 
MSGHCON field 20,34 
MSGHDAT field 20,26,104 
MSGHFLGS field 20 
MSGHLEN field 

--described 20 

--and Front End Control 

Messages 106 

--and message switching 99-101 

--and output messages 40 

--and user log entries 104 
MSGHLOG field 20,26,104 
MSGHMMN field 20,26 
MSGHQPR field 20 

--and COBPUT call 97 

--described 22 

--and segmented input 76,97,102 
MSGHREIN field 20,34 
MSGHRSC field 

--and assigning verb to terminal 94 

--and COBPUT 97 

--described 20 

--and Message Collection 99 

--and message routing 18 , 35 

--and output messages 39,77 

--and subsystem logic using 

EDIT and OUTPUT 37 

--and Test Mode 183 
MSGHRSCH field 

--and assigning verb to 

terminal 94 

--and COBPUT 97 


Page 
--described 20 
--and Message Collection 99 
--and message routing 18,35 
--and output messages 39,77 
--and subsystem logic using 
EDIT and OUTPUT 37 
--and Test Mode 183 
MSGHSSC field 20 ,39,106 
MSGHSSCH field 20,39,106 
MSGHTID field 
--described 20 
--and FESEND/FESENDC 102-103 
--and Front End Data Queuing 107 
--and Front End Queue Release 108 
--and message switching 41 
--and Output Utility 75 
--and Store/Fetch facility 84 
--and subsystem coding 40 
--and Test Mode 183 
MSGHTIM field 20,26,104 
MSGHUSR field 20,21 


MSGHVMI field 
--and Change/Display Utility 76-77,167 


--and COBPUT 97 
--described 20,22 
--and Edit Utility 35,38,41,97 
--and FESEND 21,40,102 
--and Front End Control 
Messages 106 
--and Front End data queuing 107 
--and input messages 35 
--and message processing 35 
--and message switching 35,41 
--and output messages 40 
--and Output Utility 35,75-77 
--and PREPROG 38 
--and subsystem logic using 
EDIT and OUTPUT 37 

--and Test Mode 183 
--values 35 

Multiregion System 
--and batch interface 30 
--and COBPUT calls 98 
--and testing 129 

Multithread processing 

, --and COBREENT 38 
--described 4-5 
-~-and exclusive control 57 
--and message flow using MMU 22 
--and reentrant subsystems 16,38 
--and subsystem testing 131,168 


MVS/XA (IBM). See XA/ESA. 
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NAME parameter (SUBMODS macro)105,110.1 

NCAL. See NOCALL parameter. 

Network Table 17,239,241 

NOCALL parameter (linkedit)46.3,225,227 

NODYNAM compiler option 46.1,225 

Nonreentrant subsystems 
16,31,46.3,247-252 


OFT. See Output Format Table. 

On-line environment (described) 1-3 
On-line testing 129 
OPEN (FAR) option 51 
Opening files 12,51-52 
OPTIMIZE (VS COBOL II) option 46.1 
OTQUEUE user exit (VTAM) 21 


Output Format Number 97,168 
Output Format Table 


--associated components 241 
--creation of 240 
--described 76 
--and message flow using 
EDIT and OUTPUT 24 
--and subsystem testing 168 ,181-182 
Output Utility 
--and COBPUT 97 
--and CONVERSE 90 
--described 16,75 
--and Front End feedback 
messages 108 
--function 14 
--and INTERLOG log codes 26-27 
--message flow using 24-25 
--message header 
specifications for 77 
--and message switching 30,41 
--and MSGHQPR 22 
--and MSGHVMI 35,77 
--processing 24,75-76 
--and sample inquiry 
subsystem 111,168 
--subsystem logic using 35,37-38 
--and subsystem testing 168 
--tables used by 17,241 
Overlay linking 46.3 
Pad character table (PADDTBLE) 239,241 
PADD macro 239 


PADDTBLE. See Pad character table. 

Page Facility 15,16,47,110,240,241,247 
PAGETBL macro 240 
PAGETBLE table 240,241 
PARM macro 180,240 
PATRN macro 240 


S 


Page 
Pattern Table (PTRNTBLE) 240,241 
PERFORM (COBOL verb) 45,46.1 


PMIALTRN macro 240 


PMIALTRP. See Alternate Format 
Table. 
PMIBROAD. See Broadcast Table. 
PMICANC. See USRCANC. 
PMIDEVTB. See Device Table. 
PMIELIN macro 240 


PMIEXLD utility 

PMIFILET. See File Table. 

PMIRCEND. See Output Format Table. 

PMIRCNTB. ee Output Format Table. 

PMIRPTAB. ee Company/Report/ 
Terminal Table. 


167,239 


PMISNAP macro Lt0. 2 
PMISTATB. See Station Table. 

PMISTOP DD statement 131 
PMISTOP macro 240 
PMITEST module 167,168 


PMIVERBS. See Edit Control Table. 


PMIWTO macro 110.1 
PMIWTOR macro 110.1 
PREPROG module 35,38,41,46,49,91 
--and XA/ESA 38 , 46 
PREPROGE user exit 46.2 
PREPROGI user exit 46.2 
PTRNTBLE. See Pattern Table. 
PUT service routine 
--calling format 60,62 
--and exclusive control 59 
--function 51 
--and indexed sequential 
files 62-63 
--and sequential access 
files 60-61 
--and subsystem processing 52 
--and ISAM/VSAM compatibility 70,74 
PUTV service routine 
--calling format 68,72 
--and exclusive control 70 
--and FHCW reason codes 70 
--function 51 
--and subsystem processing 52 
--and VSAM files 67-68 
--and VSAM processing options 69-70 
QBUILD function 87,110 


QCLOSE function 87,110 
QISAM access method 


--and exclusive control 57-59 
--and File Handler parameters 54 
--and File Handler service 

routines 51-52 ,62 


Page 
--and ISAM/VSAM compatibility 74 
QOPEN function 87,110 
QPR. See MSGHQPR field. 
QREAD function 87,110 
QREADX function 87,110 
QWRITE function 87,110 
QWRITEX function 87,110 


QSAM access method 51-52,57,60-61 


Queues 
--and COBPUT 97 
--and Dynamic Data Queuing 15 ,86-87 
--and FESEND 41,102 
--and Front End 11 
--illustrated 23,25 
--and INTERLOG 26 
--and Message Collection 22,24,99,101 
--and message switching 41 
--and TP interface 12 


RBA. See Relative byte address. 
RBN. ee Relative block number. 
RDW. See Record Descriptor Word. 
READ service routine 


--calling format 60,62 ,64 
--and direct access files 64-66 
--and exclusive control 57-59 


--function 51 


--and indexed sequential files 62-63 
--and ISAM/VSAM compatibility 70,74 
--and sequential access files 60-61 
--and subsystem processing 52 
READONLY (FAR) option 51,71 
READY TRACE (COBOL) 46.2 
Reason codes, VSAM 70,73 
Record Descriptor Word (RDW) 61,68 
Reentrant subsystems 
--and COBREENT 38-39 
--coding conventions 45 
--and Dynamic Working 
Storage 18,45 
--environment 33 
--example 42-44.2 
--and File Handler service 
routines 54 
--and FREE parameter (SYCTTBL 
macro) 19 
--and LANG parameter (SYCTTBL 
macro) 18 


--and loading above the 16M line 45-46 


--and Message Collection 100-101 
--and MNCL parameter (SYCTTBL 

macro) 19,131,168 
--structure 31-32 
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--and user subroutines 
105-106 , 243-246 


--vs. nonreentrant subsystems 16 

--and VS COBOL II 46.1-46.3 
REENTSBS table 

--creation of 240 

--described 95-97 

--function 39 

--listing of 96-97 


--and service routines 46.2,95,110,241 
--and user subroutines 39,46.3,105,243 
--and USRSUBS 97,130,132,243 


Relative block number (RBN) 54 ,64-66 

--example 111 
Relative byte address (RBA) 54,67-69 
Relative record data set (VSAM) 54,67 


Relative record number (RRN) 
54,67-70,72 


Relative track and record number 54 

RELEASE service routine 
--calling format 56 
--and exclusive control 59 
--function 51 
--return codes 56 
--and subsystem processing 52-53 
--use of 56-57 
--and VSAM 67,74 

RELEX service routine 59,70 


RENT parameter (linkedit) 
45,46.3,225,227 

REPORT macro 240 

REPTAPE. See Batch Report Table. 


Resident programs 11,46.3,92,105 


RESET TRACE (COBOL) 46.2 
RESOURC parameter (SYCTTBL macro) 19 
RESOURCE macro 19 
Resource Manager 12 
RESTART parameter (SYCTTBL macro) 46.4 
Restart/recovery 21,26,46.4 
Restarted messages 46.4,88 
Retriever (module) 29 
RETURN-CODE (COBOL data-name) 45 
Return codes 
--from COBPUT 98 
--from CONVERSE 92 
--from FECM calls 106 
--from FESENDC 103 
--from File Handler 
--BDAM 66 
--ISAM 63 
--outline 55 
- -RELEX 59 
--SELECT/RELEASE 56 
--sequential access 60 
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--VSAM 69-70,73 
--from Front End Control 
Message facility 106 
--from INTSORTC 110 
--from LOGPUT 104 
--from Message Collection 99 
--from queuing routine 40 
--and RETURN-CODE data name 45 


--from subroutines 106,111 
--from subsystems 22 ,31,34 
REUS parameter (linkedit) 45,225 
REUSE parameter (SYCTTBL macro) 46,46.3 
RLSE command 108 
RMODE linkedit parameter45 ,46.1,225,227 
RPTnnnnn member. See Output Format 
Table. 
RRDS. See Relative record data set. 
RRN. See Relative record number. 
Run unit (VS COBOL IT) 38 ,46.1 
SAM. See System Accounting and 
Measurement. 
SAM access method. See BSAM and QSAM. 
Sample subroutine 


(SQCOBOLB) 111,126-128 
Sample subsystems 42,111,167,197,247 
Save area 105,243,244 

--chaining of 46.3 
SBA sequences (IBM 3270) 21,27,49 
SBSP parameter (SYCTIBL macro) 18 
SCT. See Subsystem Control Table. 
SECTEST macro (ESS) 110.1 
SECUSER routine (ESS) 15 
Segmented messages 

-~-and COBPUT 97 

--and DDQ 30 

--and FESEND 102 

--and MSGHQPR 22,76,97 

--and Output Utility 76 
SELECT service routine 

--calling format 56 

--function 51 

--and ISAM/VSAM compatibility 74 

--return codes 56 

--and subsystem processing 52-53 

--use of 56 

--and VSAM 67,70 
SERVICE RELOAD (COBOL) 46.2,91 


Service routines (INTERCOMM) 


--calls to 38-39,45,46.2,95,105 
SETGLOBE global table 46 
Share options (VSAM) 70-71 
Signed-on operator-id checking 15 


c 


SIMCRTA utility 168 
Simulation Mode 


--and BTAM simulator 111 ,129-131,197 


--execution JCL 138 ,217 
--imput messages 134-135 
--linkedit JCL 136-137 ,215-216 
--logging 131,161-166 
--output from 139-160 
SIM3270 module 129,131,197 
--printout from 131,139-160 


Single-thread 


processing 4,131,168 ,247 
Snap 51 103 
Snap 87 46.4 
Snap 118 46.3 
Snap 123 46.3 
Snap 126 46 ,46.3 
Snap program areas 46.3,46.4,110.1 
Snaps, Test Mode 168 ,188-190 
SNAPDD data set 46.4 
Sort Facility 109-110 
SORT (COBOL verb) 46.2 
SPA. See System Parameter Area. 
SPAEXT. See System Parameter Area. 
SPALIST macro 17 ,46,82,240 
SSCONV macro 110.1 
SSRANGE checking 46.1,46.3 
SSSTART macro 110.1 
SSTEST macro 110.1 
SSSTOP macro 110.1 
SSUP command 46.3 
STATION macro 240 


Station Table (PMISTATB) 17,102,240,241 


Statistics 6,26 
STEPCAT DD statement (VSAM) 131 
STOP command 46 
STOP RUN (VS COBOL ITI) 46.1 
Storage pools 46 
STORE function 84-85 
Store/Fetch facility 
--and conversational subsystems 
81,84-85 
--and CONVERSE 88 
--described 15 
--and MMU maps 130 
--service routines 110 
--use of 30,84-85 


STRT command 
SUBMODS macro 
46,46.1,46.3,105-106,110.1,130,240,243 
Subroutine entries table. 

See REENTSBS table. 


46 ,139-140,197 
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Subroutines 
--and COBREENT 38-39 ,46.3,95,105,243 
--and CONVERSE 91 
--defining via REENTSBS table 
46,46.3,95,105 
--and DWSSNAP Facility 46.4-46.5 
--and dynamic linkedit 30 
--interface to 
38-39, 45-46 ,46.3,105-106 , 243-246 ,247 


--linkedit of 45,225,227 
--sample 126-128 
--and VS COBOL II 38 ,46.1-46.3,105 
Subsystems 

--coding 31-46.5 
--coding conventions 45 
--conversational 

--and CONVERSE 88-92 
--design considerations 93-94 
--and Dynamic Data Queuing 86-87 
--general concepts 79-80 


--implementation 81 


--and Store/Fetch 84-85 
--and USERSPA 82-83 
--defined 9-10 
--and dynamic linkedit 30 
--and file access functions 51 
--and File Handler 52-55 
--illustration of 32,42-44.2 


--Intercomm-supplied 16 
--linkedit of 45,225,227 
--and loading above the 16M line 

38-39 ,45-46,95 


--and message processing 35-38 
--and message switching 18,41,99 
--nonreentrant 16,247-252 
--and output messages 41,102,107-109 
--parameters passed to 31-33,40-41 
--reentrant 16,18,31-33,45-46.3 
--return codes from 34 
--sample inquiry 111,167,198 
--structure 31-32 ,34 
--testing 111,129-223 
--time controlled processing 30 


--and VS COBOL II 46.1-46.3,197 
See also Reentrant subsystems. 
Subsystem Control Table (SCT) 


--creation of 18,240 
--and dynamic storage 45 
--function 17-18 
--and message collection 100-101 
--and message flow using EDIT 

and OUTPUT 24 


Page 
--and message flow using MMU 22 
--and RESOURCE macro 19 
--and subsystem entry point 40,46.2 
--and subsystem structure 31-32 ,248 
--and subsystem testing 130,167,197 
--and user-coded COBOL 
subroutines 106 
Subsystem Controller 
--and COBPUT return codes 97-98 
--and Dynamic -Work-Space 100,101 
--function 12 
--and File Handler return codes 55 
--and GOBACK 40 
--and inter-subsystem queuing 97 
--and INTERLOG 28-29 
--and message processing 
concepts 35 
--and PREPROG 38 
--and return codes 34,41,97,99-100 
--and subsystem structure 31-34 
Switched devices 
--and Edit utility 49 
--and MSGHUSR 21 
SYCTTBL macro 
--and Dynamic Working Storage 
protection option 46 
--and freeing dynamic- 
work-space 100,101 
--and Front End Queue Table 239 
--function 17,18 


--and INTSCT 17,18,130,132,167,180,214 


--and loading above the 16M line 46 
--and Message Collection 100-101 
--and nonreentrant subsystems 18,247 
--parameters 18-19 
--and RESOURCE macro 19 
--and restarted messages 46.4 
--and sample inquiry subsystem 111 
--and Subsystem Control Table 
17 ,18,240 
--and user-coded COBOL 
subroutines 106 , 243 
--and VS COBOL II 46.1,46.2,197 
SYCT400 module 29 
See also Subsystem Controller. 
SYMREL data set 82,225,229 
SYMUSR data set 82 
SYSOUT data set (VS COBOL IT) 217 
SYSPRINT data set 30 
System Accounting and 
Measurement (SAM) 110.1 
System components and programs 
11-15,30,110 
System control commands 30,93-94,102 
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System log. See INTERLOG file. 

System Monitor 12 
See also Subsystem Controller. 

System Parameter Area/List (SPA) 
--and associated components 82-83 
--and conversational subsystems 81-83 
--creation of 82,240 
--function 17 
--and Message Collection 99 
--and SPAEXT 240 
--and subsystem structure 31-33 
--and system separator character 49 
--and user-coded COBOL 

subroutines 106 

--and USERSPA 82-83 

System Parameter Table. See 
System Parameter Area. 

Systems Operation Control 6-7 


TABEND function 96,110,237 ,238 


TABGET function 96,110,237 
Table Facility 81,88 ,96,109,110,237 

--described 15 
Table sort (INTSORT) 109-110 
Tables (Intercomm) 17,239-241 
TABOPEN function 96,110,237 
TABPUT function 96,110,237 
TABSORT function 96,110,237 


TABUILD function 
Task Global Table (COBOL) 


96,110,237,238 


--and save area chaining 46.3 

--saving a copy of 95 
TCAM 11,130 
TCTV parameter (SYCTTBL 

macro) 19 ,110.1 
Teletype Terminal 21 
Terminal control 6-7 


Test input messages 

111,130,134-135,168 ,183-184 
Test Mode 26,111,129 ,167 
Test Mode message card formats 183 
Testing Subsystems 111,129 ,167,197 
TGT. See Task Global Table. 


THDCOM area (VS COBOL ITI) 95 
Thread 
--defined 4,16 
--dumps of (debugging) 129 
--and File Handler control areas 53 
--and MNCL 19,131,168 ,247 
--and RELEASE 56 
Thread number 21 
Time-controlled processing 30 
Time-out 19 ,88,91 


aed 


Ss 
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Timed delay in processing 30 
TOTAL data base 15,52 
TP queuing interface to Front End 12 
Transaction codes/identifiers 17-18 
Transactions 

--described 1-3 

--sample inquiry 111 
TTR. See Relative Track and 

Record Number. 
TUNERTBL table 240,241 
TYPE parameter (SUBMODS macro) 46,46.3 
Undefined records 61 
UNLK command 93-94 
UNSTORE function 85 


USAGE parameter (SUBMODS macro) 46,46.3 


User exits 30,34,46.2 

User logging. 26-27 
See also LOGPUT. 

USERSPA 81-84, 88 

USRBTLOG module (user exit) 29 

USRBTVRB 18,130,132 ,168,214 

USRCANC module (user exit) 34,55,100 


USRSCTS 18 ,130,132,167,180,214 
USRSUBS 97,110.1,130,132,214 

--and user subroutines 105,243 
USRTRACK macro 110.1 
USRVERBS 167,180 
Variable-length SAM records 61 
Variable-length VSAM records 68 
VCT macro 239 
VERB macro 180,240 
Verb Table. See Front End Verb 

Table. 
VERBGEN macro 240 
VERBTBL. See Edit Control Table. 


VMI (Verb Message Identifier). See 
MSGHVMI field. 


VS COBOL II 
--and abends from 46.3 
--Cobpacks for 216 


--and COBREENT 
--compiler for 
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